(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    733951,      18006]
NotebookOptionsPosition[    716565,      17443]
NotebookOutlinePosition[    717026,      17463]
CellTagsIndexPosition[    716983,      17460]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "ACPackages`"}]], "Input",
 InitializationCell->True],

Cell[CellGroupData[{

Cell["\:041f\:043e\:0441\:0442\:0440\:043e\:0435\:043d\:0438\:0435 \:0441\
\:0438\:0441\:0442\:0435\:043c\:044b \:0438 \:043c\:0430\:0442\:0440\:0438\
\:0446", "Section"],

Cell[CellGroupData[{

Cell["\<\
(\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0443\:0440\:0430\
\:0432\:043d\:0435\:043d\:0438\:0439 \:0441\:043c.CurvSystCoor-pseudotor.nb)
\:041e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:0435 \:0441\
\:0438\:0441\:0442\:0435\:043c\:044b \
eqs\[Phi]r[\[Lambda]_,\[Omega]_,\[Kappa]_,m_,Re_]\
\>", "Subsection",
 CellChangeTimes->{3.406009753566*^9}],

Cell[CellGroupData[{

Cell["\<\
\:0440\:0430\:0437\:043b\:043e\:0436\:0435\:043d\:043d\:043e\:0435 \:043f\
\:043e \:043c\:043e\:0434\:0430\:043c (\:0441 1-\:0439 \:043d\:0435\:0432\
\:0435\:0440\:043d\:043e, \:0442.\:043a. \:043d\:0435\:0442 \
\:0437\:0430\:0446\:0435\:043f\:043b\:0435\:043d\:0438\:044f \:043c\:043e\
\:0434)\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqs\[Phi]r", "[", 
    RowBox[{
    "\[Lambda]_", ",", "\[Omega]_", ",", "\[Kappa]_", ",", "m_", ",", "Re_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"m", "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Re", " ", "\[Lambda]", " ", "\[Rho]", " ", 
         RowBox[{"v\[Zeta]", "[", "\[Rho]", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["v\[Zeta]", "\[Prime]",
          MultilineFunction->None], "[", "\[Rho]", "]"}], "-", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{
          SuperscriptBox["v\[Zeta]", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", "\[Prime]",
           MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"Re", " ", "\[Lambda]", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "\[Rho]", "]"}]}], "-", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{
                SuperscriptBox["\[Psi]", 
                 TagBox[
                  RowBox[{"(", "3", ")"}],
                  Derivative],
                 MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               RowBox[{
                SuperscriptBox["\[Psi]", 
                 TagBox[
                  RowBox[{"(", "4", ")"}],
                  Derivative],
                 MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"m", "\[Equal]", "1"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{"v\[Zeta]", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "G", " ", "Re", " ", "\[Rho]", " ", 
            RowBox[{
             RowBox[{"\[Psi]", "[", "\[Rho]", "]"}], "/", "2"}]}], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["v\[Zeta]", "\[Prime]",
               MultilineFunction->None], "[", "\[Rho]", "]"}], "+", 
             RowBox[{"\[Rho]", " ", 
              RowBox[{
               SuperscriptBox["v\[Zeta]", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], ")"}]}], 
          ")"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{"\[Psi]", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"3", "-", 
              RowBox[{"Re", " ", "\[Lambda]", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", "\[Prime]",
              MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  RowBox[{"Re", " ", "\[Lambda]", " ", 
                   SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], " ", 
               RowBox[{
                SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{
                   SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "3", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  RowBox[{
                   SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "4", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], 
                ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", "True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["m", "2"], "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{"v\[Zeta]", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
           "\[ImaginaryI]", " ", "G", " ", "m", " ", "Re", " ", "\[Rho]", " ",
             
            RowBox[{
             RowBox[{"\[Psi]", "[", "\[Rho]", "]"}], "/", "2"}]}], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["v\[Zeta]", "\[Prime]",
               MultilineFunction->None], "[", "\[Rho]", "]"}], "+", 
             RowBox[{"\[Rho]", " ", 
              RowBox[{
               SuperscriptBox["v\[Zeta]", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], ")"}]}], 
          ")"}]}]}], ",", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["m", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            SuperscriptBox["m", "2"], "+", 
            RowBox[{"Re", " ", "\[Lambda]", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          RowBox[{"\[Psi]", "[", "\[Rho]", "]"}]}], "+", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["m", "2"]}], "-", 
               RowBox[{"Re", " ", "\[Lambda]", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", "\[Prime]",
               MultilineFunction->None], "[", "\[Rho]", "]"}]}], "-", 
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["m", "2"]}], "+", 
                  RowBox[{"Re", " ", "\[Lambda]", " ", 
                   SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "\[Rho]", "]"}]}], "-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "3", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   RowBox[{
                    SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "4", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], 
                 ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.406009758071*^9, 3.406009772843*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\:0442\:0435\:043a\:0443\:0449\:0435\:0435", ":", " ", 
   RowBox[{
   "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0434\:043b\:044f", 
    " ", "\[Psi]", " ", "\:0438", " ", "v\[Zeta]"}]}], ",", " ", 
  RowBox[{
  "\:043e\:0431\:0440\:0435\:0437\:0430\:043d\:043d\:0430\:044f", " ", 
   "\:0434\:043e", " ", 
   SuperscriptBox["\[Kappa]", "1"]}]}], "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{"eqs\[Phi]r", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[Omega]", ",", "\[Kappa]", ",", "G", ",", "Re"}], 
   "]"}], ")"}]}], "Text",
 CellChangeTimes->{{3.4060095139709997`*^9, 3.406009514164*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nd2", "=", "1"}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.407891618955*^9, 3.407891623153*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqs\[Phi]r", "[", 
    RowBox[{
    "\[Lambda]_", ",", "\[Omega]_", ",", "\[Kappa]_", ",", "G_", ",", "Rn_"}],
     "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"Rn", " ", "\[Rho]"}]], "\[Kappa]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "G", " ", "Rn", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"G", " ", 
           SuperscriptBox["Rn", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{"4", "-", 
                RowBox[{"23", " ", 
                 SuperscriptBox["\[Rho]", "2"]}], "+", 
                RowBox[{"7", " ", 
                 SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
             RowBox[{"24", " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
              "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", "G", " ", "Rn", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"2", " ", "Rn", " ", "\[Omega]", " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", "Rn", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"46080", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"19", "-", 
               RowBox[{"120", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"150", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"70", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", 
               RowBox[{"18", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"20", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", "\[Omega]"}]}],
            ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         FractionBox[
          RowBox[{"G", " ", 
           SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", "G", " ", "Rn", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"2", " ", "Rn", " ", "\[Rho]", " ", "\[Omega]", " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", "Rn", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"nd2", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "-", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "-", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{"4", "-", 
                RowBox[{"23", " ", 
                 SuperscriptBox["\[Rho]", "2"]}], "+", 
                RowBox[{"7", " ", 
                 SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
             RowBox[{"24", " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
              "\[Omega]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", "G", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"46080", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"19", "-", 
               RowBox[{"120", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"150", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"70", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", 
               RowBox[{"18", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"20", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", "\[Omega]"}]}],
            ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "+", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "-", 
         RowBox[{
          FractionBox["1", "59454259200"], "G", " ", "Rn", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["G", "3"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4979"}], "+", 
               RowBox[{"20521", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"13499", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"4421", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "-", 
               RowBox[{"829", " ", 
                SuperscriptBox["\[Rho]", "8"]}], "+", 
               RowBox[{"35", " ", 
                SuperscriptBox["\[Rho]", "10"]}]}], ")"}]}], "-", 
            RowBox[{"116121600", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"16", " ", 
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3111", "-", 
               RowBox[{"11789", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"5536", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"1184", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"216", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"6720", " ", "G", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "7296"}], "+", 
               RowBox[{"17", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Rho]", "6"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"26112", "-", 
                  RowBox[{"55", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "8448"}], "+", 
                  RowBox[{"5", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "4"], " ", "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "59929893273600"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"8820", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["G", "4"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{"76", "-", 
                  RowBox[{"103", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "+", 
                  RowBox[{"57", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "-", 
                  RowBox[{"13", " ", 
                   SuperscriptBox["\[Rho]", "6"]}], "+", 
                  SuperscriptBox["\[Rho]", "8"]}], ")"}]}], "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["G", "3"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "117"}], "+", 
                  RowBox[{"138", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"62", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", 
                "\[Omega]"}], "+", 
               RowBox[{"184320", " ", "G", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "47"}], "+", 
                  RowBox[{"96", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"66", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"13", " ", 
                   SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", 
                "\[Omega]"}], "-", 
               RowBox[{"35389440", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "30"}], "+", 
                  RowBox[{
                   SuperscriptBox["Rn", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{"192", " ", 
                SuperscriptBox["G", "2"], " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"5", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Rho]", "10"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"60", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"76", "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"6", " ", 
                   SuperscriptBox["\[Rho]", "8"], " ", 
                   RowBox[{"(", 
                    RowBox[{"52", "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
                  RowBox[{"15", " ", 
                   SuperscriptBox["\[Rho]", "6"], " ", 
                   RowBox[{"(", 
                    RowBox[{"128", "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"3", " ", 
                   RowBox[{"(", 
                    RowBox[{"808", "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"5", " ", 
                   SuperscriptBox["\[Rho]", "4"], " ", 
                   RowBox[{"(", 
                    RowBox[{"864", "+", 
                    RowBox[{"19", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}],
               ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["G", "4"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "145690"}], "+", 
                  RowBox[{"771792", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"1244565", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"980784", " ", 
                   SuperscriptBox["\[Rho]", "6"]}], "-", 
                  RowBox[{"448350", " ", 
                   SuperscriptBox["\[Rho]", "8"]}], "+", 
                  RowBox[{"131544", " ", 
                   SuperscriptBox["\[Rho]", "10"]}], "-", 
                  RowBox[{"20727", " ", 
                   SuperscriptBox["\[Rho]", "12"]}], "+", 
                  RowBox[{"1280", " ", 
                   SuperscriptBox["\[Rho]", "14"]}]}], ")"}]}], "-", 
               RowBox[{"325140480", " ", "G", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "101"}], "+", 
                  RowBox[{"380", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"330", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"84", " ", 
                   SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", 
                "\[Omega]"}], "-", 
               RowBox[{"252", " ", 
                SuperscriptBox["G", "3"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{"6017", "-", 
                  RowBox[{"31504", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "+", 
                  RowBox[{"49530", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "-", 
                  RowBox[{"36960", " ", 
                   SuperscriptBox["\[Rho]", "6"]}], "+", 
                  RowBox[{"15050", " ", 
                   SuperscriptBox["\[Rho]", "8"]}], "-", 
                  RowBox[{"3552", " ", 
                   SuperscriptBox["\[Rho]", "10"]}], "+", 
                  RowBox[{"329", " ", 
                   SuperscriptBox["\[Rho]", "12"]}]}], ")"}], " ", 
                "\[Omega]"}], "+", 
               RowBox[{"26011238400", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"9", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Rho]", "4"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"5", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "24"}], "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "15"}], "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}], 
               "+", 
               RowBox[{"4032", " ", 
                SuperscriptBox["G", "2"], " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"714000", "-", 
                  RowBox[{"923", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"288", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Rho]", "10"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"5040", " ", 
                   SuperscriptBox["\[Rho]", "6"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "416"}], "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"350", " ", 
                   SuperscriptBox["\[Rho]", "8"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "912"}], "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
                  RowBox[{"280", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "11856"}], "+", 
                    RowBox[{"17", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"315", " ", 
                   SuperscriptBox["\[Rho]", "4"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "13392"}], "+", 
                    RowBox[{"23", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}],
               ")"}], " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Phi]"}], "]"}]}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "+", 
         RowBox[{
          FractionBox["1", "59454259200"], "G", " ", "Rn", " ", "\[Rho]", " ",
           
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["G", "3"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"4979", "-", 
               RowBox[{"2792", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"777", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"134", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], "-", 
            RowBox[{"116121600", " ", "\[Omega]"}], "-", 
            RowBox[{"16", " ", 
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3111"}], "+", 
               RowBox[{"1228", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"208", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"36", " ", 
                SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"6720", " ", "G", " ", 
             RowBox[{"(", 
              RowBox[{"7296", "-", 
               RowBox[{"17", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Rho]", "4"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[Rho]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1056"}], "+", 
                  RowBox[{
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", "\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "8"], " ", "G", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "59929893273600"], "G", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["G", "4"], " ", 
             SuperscriptBox["Rn", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"145690", "-", 
               RowBox[{"240206", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"174649", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"70547", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"19123", " ", 
                SuperscriptBox["\[Rho]", "8"]}], "-", 
               RowBox[{"2801", " ", 
                SuperscriptBox["\[Rho]", "10"]}], "+", 
               RowBox[{"160", " ", 
                SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}], "-", 
            RowBox[{"325140480", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"101", "-", 
               RowBox[{"89", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"252", " ", 
             SuperscriptBox["G", "3"], " ", 
             SuperscriptBox["Rn", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "6017"}], "+", 
               RowBox[{"9735", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"6775", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"2465", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "-", 
               RowBox[{"545", " ", 
                SuperscriptBox["\[Rho]", "8"]}], "+", 
               RowBox[{"47", " ", 
                SuperscriptBox["\[Rho]", "10"]}]}], ")"}], " ", "\[Omega]"}], 
            "+", 
            RowBox[{"26011238400", " ", 
             RowBox[{"(", 
              RowBox[{"120", "+", 
               RowBox[{
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "5"}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
            RowBox[{"4032", " ", 
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "714000"}], "+", 
               RowBox[{"923", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{"48", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Rho]", "8"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"945840", "-", 
                  RowBox[{"1457", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "6"], " ", 
                RowBox[{"(", 
                 RowBox[{"63840", "-", 
                  RowBox[{"302", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "460320"}], "+", 
                  RowBox[{"958", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", "Rn", " ", 
         SuperscriptBox["\[Rho]", "2"]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Rn", " ", "\[Lambda]", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{"v\[Zeta]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{"G", " ", "Rn", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["v\[Zeta]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{
                 SuperscriptBox["v\[Zeta]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], 
           ")"}]}]}], ")"}]}]}], ",", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"Rn", " ", 
        SuperscriptBox["\[Rho]", "4"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"Rn", " ", "\[Lambda]", " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"Rn", " ", "\[Lambda]", " ", 
         SuperscriptBox["\[Rho]", "3"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"2", " ", "\[Rho]", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"Rn", " ", "\[Lambda]", " ", 
         SuperscriptBox["\[Rho]", "4"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Rho]", "3"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4608"], "\[Kappa]", " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4608", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"v\[Zeta]", "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2304", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4608", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"9", "-", 
                 RowBox[{"60", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"35", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"48", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"9", "-", 
                 RowBox[{"20", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"18432", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2304", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4608", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"9", "-", 
                 RowBox[{"20", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "\[Rho]", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9216", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9216", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9216", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "-", 
        RowBox[{
         FractionBox["1", "59454259200"], 
         SuperscriptBox["\[Kappa]", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"322560", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"115200", "+", 
              RowBox[{
               SuperscriptBox["G", "2"], " ", 
               SuperscriptBox["Rn", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "20"}], "+", 
                 RowBox[{"30", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "-", 
                 RowBox[{"15", " ", 
                  SuperscriptBox["\[Rho]", "4"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], "-", 
              RowBox[{"20", " ", "G", " ", 
               SuperscriptBox["Rn", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"6", "-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{"v\[Zeta]", "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"309657600", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"192", " ", "\[Lambda]"}], "-", 
              RowBox[{"3", " ", 
               SuperscriptBox["G", "2"], " ", "Rn", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"16", " ", "G", " ", "Rn", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", "\[Omega]"}],
               "+", 
              RowBox[{"2", " ", "G", " ", "Rn", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"G", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "-", 
                 RowBox[{"12", " ", "\[Omega]"}]}], ")"}], " ", 
               RowBox[{"Cos", "[", 
                RowBox[{"2", " ", "\[Phi]"}], "]"}]}]}], ")"}], " ", 
            RowBox[{"\[Psi]", "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1532160", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2419200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"80640", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9676800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"19353600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"12902400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1532160", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2419200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"80640", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9676800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"19353600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"12902400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"619315200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"51609600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1347010560", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"153000", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5031936000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"725760", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2580480000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"100800", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5760", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2786918400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1430400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"7741440000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5913600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4838400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1720320", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2903040", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"8601600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2580480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"29727129600", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"58060800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"148635648000", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"20643840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9958", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"50319360", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22680", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9031680", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"8960", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2100", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"288", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"10", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"232243200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"99552", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"464486400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"232243200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"184800", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"53760", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"8960", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1152", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"228480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"268800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"13440", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"59454259200", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"166440960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"34020", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"50319360", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"17920", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5250", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"35", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"277200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"107520", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3456", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"33600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"37158912000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3064320", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"37158912000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4838400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"80640", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9676800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"89181388800", " ", "\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"464486400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"29727129600", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"928972800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"309657600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2477260800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3715891200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"89181388800", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2580480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1575383040", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"165750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"29727129600", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3096576000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"374220", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1085091840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"273280", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"101850", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"20304", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"965", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3638476800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1549600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5999616000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3049200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1639680", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"434560", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"81216", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3144960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4435200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"651840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"237817036800", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"28385280", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"65802240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"34020", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1290240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"17920", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5250", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"35", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"348364800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1083801600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"735436800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"277200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"107520", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3456", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"33600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", "\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"58060800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"54190080", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"12750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"11340", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"7741440", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1050", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"77414400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"92400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"26880", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"241920", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"134400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6720", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"208089907200", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"51609600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"232243200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"232243200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"51609600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1238630400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"928972800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"89181388800", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2580480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119992320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"12750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"154828800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"11340", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"37416960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1050", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "14"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1006387200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"812851200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"92400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"26880", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"241920", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"134400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6720", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"59454259200", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"166440960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"34020", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"50319360", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"17920", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5250", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"35", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "14"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"277200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"107520", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3456", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"33600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"58060800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"54190080", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"12750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"11340", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"7741440", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1050", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "15"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"77414400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"92400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"26880", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"241920", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"134400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6720", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Rho]", "4"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], "}"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.40600951088*^9, 3.406009511509*^9}, 3.406010201291*^9, 
   3.4062117680950003`*^9, {3.407051208809*^9, 3.4070512091400003`*^9}, {
   3.407891605707*^9, 3.407891606929*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eqs\[Phi]r", "[", 
  RowBox[{"\[Lambda]", ",", "0", ",", "0", ",", "G", ",", "R"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.406009670355*^9, 3.4060096705150003`*^9}, 
   3.407051234369*^9, 3.4078916335299997`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "R", " ", "\[Lambda]", " ", 
      SuperscriptBox["\[Rho]", "2"], " ", 
      RowBox[{"v\[Zeta]", "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
     RowBox[{"G", " ", "R", " ", 
      SuperscriptBox["\[Rho]", "2"], " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["v\[Zeta]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}]}], 
    RowBox[{"2", " ", "R", " ", 
     SuperscriptBox["\[Rho]", "2"]}]], ",", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"R", " ", 
      SuperscriptBox["\[Rho]", "4"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
      RowBox[{"R", " ", "\[Lambda]", " ", 
       SuperscriptBox["\[Rho]", "2"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
      RowBox[{"R", " ", "\[Lambda]", " ", 
       SuperscriptBox["\[Rho]", "3"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
      RowBox[{"2", " ", "\[Rho]", " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["\[Rho]", "2"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
      RowBox[{"R", " ", "\[Lambda]", " ", 
       SuperscriptBox["\[Rho]", "4"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Rho]", "2"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Rho]", "3"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Rho]", "4"], " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"4", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.407891587322*^9, {3.407891628966*^9, 3.4078916339049997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0441\:0438\:0441\
\:0442\:0435\:043c\:044b \:0434\:043b\:044f \:043d\:0430\:0445\:043e\:0436\
\:0434\:0435\:043d\:0438\:044f \:0438\:043d\:043a\:0440\:0435\:043c\:0435\
\:043d\:0442\:043e\:0432\
\>", "Subsection"],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0431\:0430\:0437\
\:0438\:0441\:043d\:044b\:0445 \:0444\:0443\:043d\:043a\:0446\:0438\:0439 (\
\:043d\:0443\:043b\:0438 \:0411\:0435\:0441\:0441\:0435\:043b\:044f)\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"bz", "[", 
   RowBox[{"i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"bz", "[", 
    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"ir", "\[Equal]", "0"}], ",", 
     RowBox[{"0", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"ir", ",", "i\[Phi]"}], "]"}]}], ",", 
     RowBox[{"N", "[", 
      RowBox[{"BesselJZero", "[", 
       RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "]"}]}], "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.3913430526968*^9, 3.3913430654818*^9}, {
  3.3913432385418*^9, 3.3913432426398*^9}}],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0438", "Text"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"bz", "[", 
      RowBox[{"i", ",", "j"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "5"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3913423990288*^9, 3.3913424760748*^9}, {
  3.3913432470198*^9, 3.3913432532108*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"BesselJZero", "[", 
       RowBox[{"i", ",", "j"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"BesselJ", "[", 
      RowBox[{"i\[Phi]", ",", 
       RowBox[{
        RowBox[{"bz", "[", 
         RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "r"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i\[Phi]", ",", "0", ",", "5", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ir", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3913425974958*^9, 3.3913426684238*^9}, {
  3.3913427041478*^9, 3.3913427416798*^9}, {3.3913429504938*^9, 
  3.3913429524538*^9}, {3.3913430755558*^9, 3.3913430756598*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0412\:044b\:0434\:0435\:043b\:0435\:043d\:0438\:0435 \:043a\:043e\
\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:043e\:0432", \
"Subsubsection"],

Cell[CellGroupData[{

Cell["\:0423\:0441\:0442\:0430\:0440\:0435\:0432\:0448\:0438\:0435 \:0432\
\:0435\:0440\:0441\:0438\:0438 \:0444\:0443\:043d\:043a\:0446\:0438\:0439", \
"Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"BesselNorm", "[", 
   RowBox[{"i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Integral]", "0", "1"], 
   RowBox[{"r", " ", 
    SuperscriptBox[
     RowBox[{"BesselJ", "[", 
      RowBox[{"i\[Phi]", ",", 
       RowBox[{
        RowBox[{"bz", "[", 
         RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "r"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", "r"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
      "\:043d\:0435", " ", 
       "\:043f\:0440\:0438\:043c\:0435\:043d\:044f\:0442\:044c", " ", 
       "\:0432", " ", 
       "\:0441\:0438\:043c\:0432\:043e\:043b\:044c\:043d\:043e\:043c", " ", 
       RowBox[{"\:0432\:0438\:0434\:0435", "!"}], "bz", " ", 
       "\:0433\:043b\:044e\:0447\:0438\:0442"}], ")"}], " ", "-", " ", 
     RowBox[{
     "\:0442\:043e", " ", "\:0436\:0435", " ", 
      "\:0441\:0430\:043c\:043e\:0435"}]}], ",", " ", 
    RowBox[{"\:043d\:043e", " ", "\:0434\:043e\:043b\:044c\:0448\:0435"}]}], 
   "*)"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BesselScalar", "[", 
    RowBox[{"if1_", ",", "ir1_", ",", "if2_", ",", "ir2_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"if1", "\[Equal]", "if2"}], ",", 
     RowBox[{
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"ir1", ",", "ir2"}], "]"}], 
      RowBox[{"BesselNorm", "[", 
       RowBox[{"if1", ",", "ir1"}], "]"}]}], ",", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"\[Rho]", " ", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"if1", ",", 
          RowBox[{
           RowBox[{"bz", "[", 
            RowBox[{"if1", ",", "ir1"}], "]"}], "\[Rho]"}]}], "]"}], 
        RowBox[{"BesselJ", "[", 
         RowBox[{"if2", ",", 
          RowBox[{
           RowBox[{"bz", "[", 
            RowBox[{"if2", ",", "ir2"}], "]"}], "\[Rho]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"n", "=", "i\[Phi]"}], ",", 
    RowBox[{"mun", "=", 
     RowBox[{
      SubscriptBox["\[Mu]", "n"], "=", "ir"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"GetHarmCoef", "[", 
    RowBox[{"expr_", ",", "i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", "\[Pi]", " ", 
        RowBox[{"BesselNorm", "[", 
         RowBox[{"i\[Phi]", ",", "ir"}], "]"}]}]], 
      RowBox[{
       UnderoverscriptBox["\[Integral]", "0", "1"], 
       RowBox[{
        UnderoverscriptBox["\[Integral]", "0", 
         RowBox[{"2", "\[Pi]"}]], 
        RowBox[{"\[Rho]", " ", "expr", " ", 
         RowBox[{"BesselJ", "[", 
          RowBox[{"i\[Phi]", ",", 
           RowBox[{
            RowBox[{"bz", "[", 
             RowBox[{"i\[Phi]", ",", "ir"}], "]"}], " ", "\[Rho]"}]}], "]"}], 
         " ", 
         SuperscriptBox["E", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "i\[Phi]", " ", "\[Phi]"}]], 
         RowBox[{"\[DifferentialD]", "\[Phi]"}], 
         RowBox[{"\[DifferentialD]", "\[Rho]"}]}]}]}]}]}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetHarmCoef", "[", 
   RowBox[{"expr_", ",", "i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", "\[Pi]", " ", 
       RowBox[{"BesselNorm", "[", 
        RowBox[{"i\[Phi]", ",", "ir"}], "]"}]}]], 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"\[Rho]", " ", "expr", " ", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"i\[Phi]", ",", 
          RowBox[{
           RowBox[{"bz", "[", 
            RowBox[{"i\[Phi]", ",", "ir"}], "]"}], " ", "\[Rho]"}]}], "]"}], 
        " ", 
        SuperscriptBox["E", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "i\[Phi]", " ", "\[Phi]"}]]}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\[Phi]", ",", "0", ",", 
         RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], 
   "]"}]}]], "Input"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"BesselNorm", "[", 
   RowBox[{"i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"ir", "\[Equal]", "0"}], ",", 
    FractionBox[
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"ir", ",", "i\[Phi]"}], "]"}], "2"], ",", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"BesselJ", "[", 
       RowBox[{
        RowBox[{"i\[Phi]", "+", "1"}], ",", 
        RowBox[{"bz", "[", 
         RowBox[{"i\[Phi]", ",", "ir"}], "]"}]}], "]"}], "2"], "2"]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BesselScalar", "[", 
    RowBox[{
    "weight_", ",", "if1_", ",", "ir1_", ",", "if2_", ",", "ir2_", ",", 
     "rvar_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BesselScalar", "[", 
     RowBox[{
     "weight", ",", "if1", ",", "ir1", ",", "if2", ",", "ir2", ",", "rvar"}], 
     "]"}], "=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"funcs", "=", 
         RowBox[{
          RowBox[{"BesselJ", "[", 
           RowBox[{"if1", ",", 
            RowBox[{
             RowBox[{"bz", "[", 
              RowBox[{"if1", ",", "ir1"}], "]"}], "rvar"}]}], "]"}], 
          RowBox[{"BesselJ", "[", 
           RowBox[{"if2", ",", 
            RowBox[{
             RowBox[{"bz", "[", 
              RowBox[{"if2", ",", "ir2"}], "]"}], "rvar"}]}], "]"}]}]}], ",", 
        "zerord"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<bs\>\"", ",", 
          RowBox[{"{", 
           RowBox[{"weight", ",", "if1", ",", "ir1", ",", "if2", ",", "ir2"}],
            "}"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"zerord", "=", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"CoefficientList", "[", 
            RowBox[{
             RowBox[{"Series", "[", 
              RowBox[{"funcs", ",", 
               RowBox[{"{", 
                RowBox[{"\[Rho]", ",", "0", ",", 
                 RowBox[{
                  RowBox[{"Exponent", "[", 
                   RowBox[{"weight", ",", 
                    SuperscriptBox["rvar", 
                    RowBox[{"-", "1"}]]}], "]"}], "-", "1"}]}], "}"}]}], 
              "]"}], ",", "\[Rho]"}], "]"}], ",", 
           RowBox[{"_", "?", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"#", "\[NotEqual]", "0"}], "&"}], ")"}]}]}], "]"}], "-",
          "1"}]}], ";", 
       RowBox[{"Return", "[", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Depth", "[", "zerord", "]"}], "==", "3"}], ",", "$Failed",
           ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"if1", "==", "if2"}], "\[And]", 
             RowBox[{"FreeQ", "[", 
              RowBox[{
               FractionBox["weight", "\[Rho]"], ",", "\[Rho]"}], "]"}]}], ",",
             
            RowBox[{
             FractionBox["weight", "\[Rho]"], 
             RowBox[{"KroneckerDelta", "[", 
              RowBox[{"ir1", ",", "ir2"}], "]"}], 
             RowBox[{"BesselNorm", "[", 
              RowBox[{"if1", ",", "ir1"}], "]"}]}], ",", 
            RowBox[{"NIntegrate", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{"weight", " ", "funcs"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"rvar", ",", "0", ",", "1"}], "}"}]}], "]"}]}], 
           "]"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BesselScalar", "[", 
    RowBox[{
    "weight_", ",", "if1_", ",", "if1a_", ",", "ir1_", ",", "if2_", ",", 
     "if2a_", ",", "ir2_", ",", "rvar_"}], "]"}], ":=", "\[IndentingNewLine]",
    
   RowBox[{
    RowBox[{"BesselScalar", "[", 
     RowBox[{
     "weight", ",", "if1", ",", "if1a", ",", "ir1", ",", "if2", ",", "if2a", 
      ",", "ir2", ",", "rvar"}], "]"}], "=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"funcs", "=", 
         RowBox[{
          RowBox[{"BesselJ", "[", 
           RowBox[{"if1", ",", 
            RowBox[{
             RowBox[{"bz", "[", 
              RowBox[{"if1a", ",", "ir1"}], "]"}], "rvar"}]}], "]"}], 
          RowBox[{"BesselJ", "[", 
           RowBox[{"if2", ",", 
            RowBox[{
             RowBox[{"bz", "[", 
              RowBox[{"if2a", ",", "ir2"}], "]"}], "rvar"}]}], "]"}]}]}], ",",
         "zerord"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<bs\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
           "weight", ",", "if1", ",", "if1a", ",", "ir1", ",", "if2", ",", 
            "if2a", ",", "ir2"}], "}"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"zerord", "=", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"CoefficientList", "[", 
            RowBox[{
             RowBox[{"Series", "[", 
              RowBox[{"funcs", ",", 
               RowBox[{"{", 
                RowBox[{"\[Rho]", ",", "0", ",", 
                 RowBox[{
                  RowBox[{"Exponent", "[", 
                   RowBox[{"weight", ",", 
                    SuperscriptBox["rvar", 
                    RowBox[{"-", "1"}]]}], "]"}], "-", "1"}]}], "}"}]}], 
              "]"}], ",", "\[Rho]"}], "]"}], ",", 
           RowBox[{"_", "?", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"#", "\[NotEqual]", "0"}], "&"}], ")"}]}]}], "]"}], "-",
          "1"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Depth", "[", "zerord", "]"}], "\[Equal]", "3"}], ",", 
          "$Failed", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
             "if1", "\[Equal]", "if2", "\[Equal]", "if1a", "\[Equal]", 
              "if2a"}], "\[And]", 
             RowBox[{"FreeQ", "[", 
              RowBox[{
               FractionBox["weight", "\[Rho]"], ",", "\[Rho]"}], "]"}]}], ",",
             
            RowBox[{
             FractionBox["weight", "\[Rho]"], 
             RowBox[{"KroneckerDelta", "[", 
              RowBox[{"ir1", ",", "ir2"}], "]"}], 
             RowBox[{"BesselNorm", "[", 
              RowBox[{"if1", ",", "ir1"}], "]"}]}], ",", 
            RowBox[{"NIntegrate", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{"weight", " ", "funcs"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"rvar", ",", "0", ",", "1"}], "}"}]}], "]"}]}], 
           "]"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], 
  ";"}]}], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "i\[Phi]"}], ",", 
  RowBox[{"mun", "=", 
   RowBox[{
    SubscriptBox["\[Mu]", "n"], "=", "ir"}]}]}]], "Text"],

Cell[CellGroupData[{

Cell[TextData[{
 "\:041f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438 \:0434\
\:043b\:044f \:0432\:044b\:043f\:043e\:043b\:043d\:0435\:043d\:0438\:044f \
\:0440\:0443\:0447\:043d\:043e\:0433\:043e \:0438\:043d\:0442\:0435\:0433\
\:0440\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \:043f\:043e \[Phi] (\
\:0438\:0441\:043f\:043e\:043b\:044c\:0437\:0443\:044e\:0442\:0441\:044f \
\:0432 \:0444\:0443\:043d\:043a\:0446\:0438\:044f\:0445 GetCoef/Symb).\n\
\:041e\:0441\:0442\:043e\:0440\:043e\:0436\:043d\:043e! \:041d\:0435 \:0440\
\:0430\:0431\:043e\:0442\:0430\:0435\:0442 \:0441 \:0432\:044b\:0440\:0430\
\:0436\:0435\:043d\:0438\:044f\:043c\:0438 \:0442\:0438\:043f\:0430 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"-", "2"}], "\[ImaginaryI]", "  ", "\[Phi]"}]], 
    RowBox[{"Sin", "[", "\[Phi]", "]"}], 
    RowBox[{"Cos", "[", "\[Phi]", "]"}]}], TraditionalForm]]]
}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]integr", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        SuperscriptBox["n", "2"], "\[NotEqual]", 
        SuperscriptBox["m", "2"]}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "n"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], " ", 
          
          RowBox[{"(", 
           RowBox[{
            RowBox[{"n", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "m", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}], " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        SuperscriptBox["n", "2"], "\[NotEqual]", 
        SuperscriptBox["m", "2"]}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"m", "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "m"}], " ", 
               RowBox[{"Cos", "[", 
                RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "+", 
              RowBox[{"\[ImaginaryI]", " ", "n", " ", 
               RowBox[{"Sin", "[", 
                RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}], 
          ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}], " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "m"}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], "+", 
         RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]}], 
        RowBox[{"8", " ", "n", " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "m"}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]]}], 
         "+", 
         RowBox[{"4", " ", "n", " ", "\[Pi]"}]}], 
        RowBox[{"8", " ", "n", " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", 
         RowBox[{"-", "m"}]}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], "-", 
         RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]}], 
        RowBox[{"8", " ", "m", " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", 
         RowBox[{"-", "m"}]}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]]}], 
         "+", 
         RowBox[{"4", " ", "m", " ", "\[Pi]"}]}], 
        RowBox[{"8", " ", "m", " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{"a_.", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[Phi]", " ", 
         RowBox[{"Complex", "[", 
          RowBox[{"0", ",", "m_"}], "]"}]}]]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"m", "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
            " ", "m"}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["m", "2"], " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{"n", "\[NotEqual]", "0"}]}], "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"-", "a"}], 
       FractionBox[
        RowBox[{
         RowBox[{"-", "n"}], "+", 
         RowBox[{"n", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["n", "2"], " ", "\[Pi]"}]]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{"n", "\[NotEqual]", "0"}]}], "\[RuleDelayed]", 
      RowBox[{"a", 
       FractionBox[
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}], 
        RowBox[{"2", " ", "n", " ", "\[Pi]"}]]}]}]}], "}"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]integrdebug", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        SuperscriptBox["n", "2"], "\[NotEqual]", 
        SuperscriptBox["m", "2"]}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"1", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "n"}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"n", " ", 
               RowBox[{"Cos", "[", 
                RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "m", " ", 
               RowBox[{"Sin", "[", 
                RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"m", "-", "n"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"m", "+", "n"}], ")"}], " ", "\[Pi]"}]]}]}], ")"}]}], ",",
      
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        SuperscriptBox["n", "2"], "\[NotEqual]", 
        SuperscriptBox["m", "2"]}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"2", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{"m", "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
              " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "m"}], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "+", 
                RowBox[{"\[ImaginaryI]", " ", "n", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}],
             ")"}]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"m", "-", "n"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"m", "+", "n"}], ")"}], " ", "\[Pi]"}]]}]}], ")"}]}], ",",
      
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "m"}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"3", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], "+",
            
           RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]}], 
          RowBox[{"8", " ", "n", " ", "\[Pi]"}]]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "m"}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"4", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", "-", 
           RowBox[{"\[ImaginaryI]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]]}], 
           "+", 
           RowBox[{"4", " ", "n", " ", "\[Pi]"}]}], 
          RowBox[{"8", " ", "n", " ", "\[Pi]"}]]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", 
         RowBox[{"-", "m"}]}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"5", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], "-",
            
           RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]}], 
          RowBox[{"8", " ", "m", " ", "\[Pi]"}]]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Complex", "[", 
           RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{
        RowBox[{"n", "\[Equal]", 
         RowBox[{"-", "m"}]}], "&&", 
        RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"6", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", "-", 
           RowBox[{"\[ImaginaryI]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]]}], 
           "+", 
           RowBox[{"4", " ", "m", " ", "\[Pi]"}]}], 
          RowBox[{"8", " ", "m", " ", "\[Pi]"}]]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"a_.", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[Phi]", " ", 
         RowBox[{"Complex", "[", 
          RowBox[{"0", ",", "m_"}], "]"}]}]]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"7", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{"m", "-", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
              " ", "m"}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["m", "2"], " ", "\[Pi]"}]]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{"n", "\[NotEqual]", "0"}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"8", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{
         RowBox[{"-", "a"}], 
         FractionBox[
          RowBox[{
           RowBox[{"-", "n"}], "+", 
           RowBox[{"n", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["n", "2"], " ", "\[Pi]"}]]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"a_.", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
       RowBox[{"n", "\[NotEqual]", "0"}]}], "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"9", ",", "n", ",", "m"}], "}"}], "]"}], ";", 
        RowBox[{"a", 
         FractionBox[
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}], 
          RowBox[{"2", " ", "n", " ", "\[Pi]"}]]}]}], ")"}]}]}], "}"}]}], 
  ";"}]], "Input"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetHarmCoef", "[", 
    RowBox[{"expr_", ",", "i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "\[Phi]", ",", "vir", ",", "opts", ",", 
       RowBox[{"eps", "=", 
        RowBox[{"0", " ", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Off", "[", 
       RowBox[{"NIntegrate", "::", "\"\<ploss\>\""}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"vir", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", "\[Pi]"}]], 
         RowBox[{
          UnderoverscriptBox["\[Integral]", "0", 
           RowBox[{"2", "\[Pi]"}]], 
          RowBox[{
           RowBox[{"Expand", "[", "expr", "]"}], " ", 
           SuperscriptBox["E", 
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "i\[Phi]", " ", "\[Phi]"}]],
            
           RowBox[{"\[DifferentialD]", "\[Phi]"}]}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Phi]integr", "=."}], ".."}], ";", 
        RowBox[{"vir", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"Expand", "[", 
            RowBox[{"expr", " ", 
             SuperscriptBox["E", 
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "i\[Phi]", " ", 
               "\[Phi]"}]]}], "]"}], "/.", "\[Phi]integr"}], "]"}]}], ";"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"opts", "=", 
       RowBox[{"Sequence", "[", 
        RowBox[{"MaxRecursion", "\[Rule]", "20"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{"Expand", "[", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"BesselNorm", "[", 
            RowBox[{"i\[Phi]", ",", "ir"}], "]"}]], "vir", " ", 
          RowBox[{"BesselJ", "[", 
           RowBox[{"i\[Phi]", ",", 
            RowBox[{
             RowBox[{"bz", "[", 
              RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], "]"}], 
          "\[Rho]"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"BesselJ", "[", 
             RowBox[{"i1_", ",", 
              RowBox[{"k1_", " ", "\[Rho]"}]}], "]"}], 
            RowBox[{"BesselJ", "[", 
             RowBox[{"i2_", ",", 
              RowBox[{"k2_", " ", "\[Rho]"}]}], "]"}], 
            SuperscriptBox["\[Rho]", "por_."]}], "\[RuleDelayed]", 
           RowBox[{"NIntegrate", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"BesselJ", "[", 
               RowBox[{"i1", ",", 
                RowBox[{"k1", " ", "\[Rho]"}]}], "]"}], 
              RowBox[{"BesselJ", "[", 
               RowBox[{"i2", ",", 
                RowBox[{"k2", " ", "\[Rho]"}]}], "]"}], 
              SuperscriptBox["\[Rho]", "por"]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "eps", ",", "1"}], "}"}], ",", 
             RowBox[{"Evaluate", "[", "opts", "]"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"BesselJ", "[", 
             RowBox[{"i1_", ",", 
              RowBox[{"k1_", " ", "\[Rho]"}]}], "]"}], 
            RowBox[{"BesselJ", "[", 
             RowBox[{"i2_", ",", 
              RowBox[{"k2_", " ", "\[Rho]"}]}], "]"}]}], "\[RuleDelayed]", 
           RowBox[{"NIntegrate", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"BesselJ", "[", 
               RowBox[{"i1", ",", 
                RowBox[{"k1", " ", "\[Rho]"}]}], "]"}], 
              RowBox[{"BesselJ", "[", 
               RowBox[{"i2", ",", 
                RowBox[{"k2", " ", "\[Rho]"}]}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "eps", ",", "1"}], "}"}], ",", 
             RowBox[{"Evaluate", "[", "opts", "]"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"BesselJ", "[", 
              RowBox[{"i1_", ",", 
               RowBox[{"k1_", " ", "\[Rho]"}]}], "]"}], "2"], 
            SuperscriptBox["\[Rho]", "por_."]}], "\[RuleDelayed]", 
           RowBox[{"NIntegrate", "[", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"BesselJ", "[", 
                RowBox[{"i1", ",", 
                 RowBox[{"k1", " ", "\[Rho]"}]}], "]"}], "2"], 
              SuperscriptBox["\[Rho]", "por"]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "eps", ",", "1"}], "}"}], ",", 
             RowBox[{"Evaluate", "[", "opts", "]"}]}], "]"}]}], ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"BesselJ", "[", 
             RowBox[{"i1_", ",", 
              RowBox[{"k1_", " ", "\[Rho]"}]}], "]"}], "2"], "\[RuleDelayed]",
            
           RowBox[{"NIntegrate", "[", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"BesselJ", "[", 
               RowBox[{"i1", ",", 
                RowBox[{"k1", " ", "\[Rho]"}]}], "]"}], "2"], ",", 
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "eps", ",", "1"}], "}"}], ",", 
             RowBox[{"Evaluate", "[", "opts", "]"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"a_.", 
            RowBox[{"BesselJ", "[", 
             RowBox[{"i1_", ",", 
              RowBox[{"k1_", " ", "\[Rho]"}]}], "]"}]}], "\[RuleDelayed]", 
           RowBox[{"NIntegrate", "[", 
            RowBox[{
             RowBox[{"a", " ", 
              RowBox[{"BesselJ", "[", 
               RowBox[{"i1", ",", 
                RowBox[{"k1", " ", "\[Rho]"}]}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "eps", ",", "1"}], "}"}], ",", 
             RowBox[{"Evaluate", "[", "opts", "]"}]}], "]"}]}]}], "}"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"On", "[", 
       RowBox[{"NIntegrate", "::", "\"\<ploss\>\""}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ts\[Phi]", ",", "ts1", ",", "ts2", ",", "tsoth", ",", "tslast"}],
     "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"ts\[Phi]", ",", "ts1", ",", "ts2", ",", "tsoth", ",", "tslast"}], 
  "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"6.296999999999969`", " ", "Second"}], ",", 
   RowBox[{"1.7039999999994393`", " ", "Second"}], ",", 
   RowBox[{"7.02800000000002`", " ", "Second"}], ",", 
   RowBox[{"0.36000000000001364`", " ", "Second"}], ",", 
   RowBox[{"0.03099999999994907`", " ", "Second"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetHarmCoefSymb", "[", 
    RowBox[{"expr_", ",", "i\[Phi]_", ",", "ir_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Rho]", ",", "\[Phi]", ",", "vir", ",", "opts", ",", "temp", ",", "a",
        ",", "b", ",", "\[Phi]integr"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Off", "[", 
       RowBox[{"NIntegrate", "::", "\"\<ploss\>\""}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Phi]integr", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{
            SuperscriptBox["n", "2"], "\[NotEqual]", 
            SuperscriptBox["m", "2"]}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "n"}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
              " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"n", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "-", 
                RowBox[{"\[ImaginaryI]", " ", "m", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}],
             
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"m", "-", "n"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"m", "+", "n"}], ")"}], " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{
            SuperscriptBox["n", "2"], "\[NotEqual]", 
            SuperscriptBox["m", "2"]}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"(", 
              RowBox[{"m", "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]],
                 " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "m"}], " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "+", 
                  RowBox[{"\[ImaginaryI]", " ", "n", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], 
                 ")"}]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"m", "-", "n"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"m", "+", "n"}], ")"}], " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{
            RowBox[{"n", "\[Equal]", "m"}], "&&", 
            RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], 
             "+", 
             RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]}], 
            RowBox[{"8", " ", "n", " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{
            RowBox[{"n", "\[Equal]", "m"}], "&&", 
            RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]]}],
              "+", 
             RowBox[{"4", " ", "n", " ", "\[Pi]"}]}], 
            RowBox[{"8", " ", "n", " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{
            RowBox[{"n", "\[Equal]", 
             RowBox[{"-", "m"}]}], "&&", 
            RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], 
             "-", 
             RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]}], 
            RowBox[{"8", " ", "m", " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "m_"}], "]"}]}]], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{
            RowBox[{"n", "\[Equal]", 
             RowBox[{"-", "m"}]}], "&&", 
            RowBox[{"n", "\[NotEqual]", "0"}]}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]]}],
              "+", 
             RowBox[{"4", " ", "m", " ", "\[Pi]"}]}], 
            RowBox[{"8", " ", "m", " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{"a_.", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[Phi]", " ", 
             RowBox[{"Complex", "[", 
              RowBox[{"0", ",", "m_"}], "]"}]}]]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"(", 
              RowBox[{"m", "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]],
                 " ", "m"}]}], ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["m", "2"], " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{"n", "\[NotEqual]", "0"}]}], "\[RuleDelayed]", 
          RowBox[{
           RowBox[{"-", "a"}], 
           FractionBox[
            RowBox[{
             RowBox[{"-", "n"}], "+", 
             RowBox[{"n", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["n", "2"], " ", "\[Pi]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"a_.", 
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", " ", "n_."}], "]"}]}], "/;", 
           RowBox[{"n", "\[NotEqual]", "0"}]}], "\[RuleDelayed]", 
          RowBox[{"a", 
           FractionBox[
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}], 
            RowBox[{"2", " ", "n", " ", "\[Pi]"}]]}]}]}], "}"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"ts\[Phi]", "+=", 
         RowBox[{"First", "[", 
          RowBox[{"Timing", "[", 
           RowBox[{
            RowBox[{"vir", "=", 
             RowBox[{"Chop", "[", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", "\[Pi]", " "}]], 
               RowBox[{
                UnderoverscriptBox["\[Integral]", "0", 
                 RowBox[{"2", "\[Pi]"}]], 
                RowBox[{
                 RowBox[{"Expand", "[", "expr", "]"}], " ", 
                 SuperscriptBox["E", 
                  RowBox[{
                   RowBox[{"-", "\[ImaginaryI]"}], " ", "i\[Phi]", " ", 
                   "\[Phi]"}]], 
                 RowBox[{"\[DifferentialD]", "\[Phi]"}]}]}]}], "]"}]}], ";"}],
            "]"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"ts\[Phi]", "+=", 
       RowBox[{"First", "[", 
        RowBox[{"Timing", "[", 
         RowBox[{
          RowBox[{"vir", "=", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"TrigReduce", "[", 
              RowBox[{"Expand", "[", 
               RowBox[{"expr", " ", 
                SuperscriptBox["E", 
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "i\[Phi]", " ", 
                  "\[Phi]"}]]}], "]"}], "]"}], "/.", "\[Phi]integr"}], 
            "]"}]}], ";"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"opts", "=", 
         RowBox[{"Sequence", "[", 
          RowBox[{"MaxRecursion", "\[Rule]", "20"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{
        RowBox[{"Expand", "[", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"BesselNorm", "[", 
            RowBox[{"i\[Phi]", ",", "ir"}], "]"}]], "vir", " ", 
          RowBox[{"BesselJ", "[", 
           RowBox[{"i\[Phi]", ",", 
            RowBox[{
             RowBox[{"\[Beta]", "[", 
              RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], "]"}], 
          "\[Rho]"}], "]"}], "+", "Pif"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"ts1", "+=", 
       RowBox[{"First", "[", 
        RowBox[{"Timing", "[", 
         RowBox[{
          RowBox[{"temp", "=", 
           RowBox[{"Replace", "[", 
            RowBox[{"temp", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"b_.", 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i1_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i1_", ",", "k1_"}], "]"}], "\[Rho]"}]}], "]"}], 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i2_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i2_", ",", "k2_"}], "]"}], "\[Rho]"}]}], "]"}], 
                  SuperscriptBox["\[Rho]", "a_."]}], "/;", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"BesselScalar", "[", 
                    RowBox[{
                    SuperscriptBox["\[Rho]", "a"], ",", "i1", ",", "k1", ",", 
                    "i2", ",", "k2", ",", "\[Rho]"}], "]"}], "=!=", 
                   "$Failed"}], "\[And]", 
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"b", ",", "\[Rho]"}], "]"}]}]}], "\[RuleDelayed]", 
                
                RowBox[{"b", " ", 
                 RowBox[{"BesselScalar", "[", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "a"], ",", "i1", ",", "k1", ",", 
                   "i2", ",", "k2", ",", "\[Rho]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"b_.", 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i1_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i1_", ",", "k1_"}], "]"}], "\[Rho]"}]}], "]"}], 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i2_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i2_", ",", "k2_"}], "]"}], "\[Rho]"}]}], "]"}]}],
                  "/;", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"BesselScalar", "[", 
                    RowBox[{
                    "1", ",", "i1", ",", "k1", ",", "i2", ",", "k2", ",", 
                    "\[Rho]"}], "]"}], "=!=", "$Failed"}], "\[And]", 
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"b", ",", "\[Rho]"}], "]"}]}]}], "\[RuleDelayed]", 
                
                RowBox[{"b", " ", 
                 RowBox[{"BesselScalar", "[", 
                  RowBox[{
                  "1", ",", "i1", ",", "k1", ",", "i2", ",", "k2", ",", 
                   "\[Rho]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"b_.", 
                  SuperscriptBox[
                   RowBox[{"BesselJ", "[", 
                    RowBox[{"i1_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i1_", ",", "k1_"}], "]"}], "\[Rho]"}]}], "]"}], 
                   "2"], 
                  SuperscriptBox["\[Rho]", "a_."]}], "/;", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"BesselScalar", "[", 
                    RowBox[{
                    SuperscriptBox["\[Rho]", "a"], ",", "i1", ",", "k1", ",", 
                    "i1", ",", "k1", ",", "\[Rho]"}], "]"}], "=!=", 
                   "$Failed"}], "\[And]", 
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"b", ",", "\[Rho]"}], "]"}]}]}], "\[RuleDelayed]", 
                
                RowBox[{"b", " ", 
                 RowBox[{"BesselScalar", "[", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "a"], ",", "i1", ",", "k1", ",", 
                   "i1", ",", "k1", ",", "\[Rho]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"b_.", 
                  SuperscriptBox[
                   RowBox[{"BesselJ", "[", 
                    RowBox[{"i1_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i1_", ",", "k1_"}], "]"}], "\[Rho]"}]}], "]"}], 
                   "2"]}], "/;", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"BesselScalar", "[", 
                    RowBox[{
                    "1", ",", "i1", ",", "k1", ",", "i1", ",", "k1", ",", 
                    "\[Rho]"}], "]"}], "=!=", "$Failed"}], "\[And]", 
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"b", ",", "\[Rho]"}], "]"}]}]}], "\[RuleDelayed]", 
                
                RowBox[{"b", " ", 
                 RowBox[{"BesselScalar", "[", 
                  RowBox[{
                  "1", ",", "i1", ",", "k1", ",", "i1", ",", "k1", ",", 
                   "\[Rho]"}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", "1", "}"}]}], "]"}]}], ";"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"ts2", "+=", 
       RowBox[{"First", "[", 
        RowBox[{"Timing", "[", 
         RowBox[{
          RowBox[{"temp", "=", 
           RowBox[{"Replace", "[", 
            RowBox[{"temp", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"b_.", 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i1_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i1a_", ",", "k1_"}], "]"}], "\[Rho]"}]}], "]"}], 
                  
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i2_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i2a_", ",", "k2_"}], "]"}], "\[Rho]"}]}], "]"}], 
                  
                  SuperscriptBox["\[Rho]", "a_."]}], "/;", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"BesselScalar", "[", 
                    RowBox[{
                    SuperscriptBox["\[Rho]", "a"], ",", "i1", ",", "i1a", ",",
                     "k1", ",", "i2", ",", "i2a", ",", "k2", ",", "\[Rho]"}], 
                    "]"}], "=!=", "$Failed"}], "\[And]", 
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"b", ",", "\[Rho]"}], "]"}]}]}], "\[RuleDelayed]", 
                
                RowBox[{"b", " ", 
                 RowBox[{"BesselScalar", "[", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "a"], ",", "i1", ",", "i1a", ",", 
                   "k1", ",", "i2", ",", "i2a", ",", "k2", ",", "\[Rho]"}], 
                  "]"}]}]}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"b_.", 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i1_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i1a_", ",", "k1_"}], "]"}], "\[Rho]"}]}], "]"}], 
                  
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i2_", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i2a_", ",", "k2_"}], "]"}], "\[Rho]"}]}], 
                   "]"}]}], "/;", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"BesselScalar", "[", 
                    RowBox[{
                    "1", ",", "i1", ",", "i1a", ",", "k1", ",", "i2", ",", 
                    "i2a", ",", "k2", ",", "\[Rho]"}], "]"}], "=!=", 
                   "$Failed"}], "\[And]", 
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"b", ",", "\[Rho]"}], "]"}]}]}], "\[RuleDelayed]", 
                
                RowBox[{"b", " ", 
                 RowBox[{"BesselScalar", "[", 
                  RowBox[{
                  "1", ",", "i1", ",", "i1a", ",", "k1", ",", "i2", ",", 
                   "i2a", ",", "k2", ",", "\[Rho]"}], "]"}]}]}]}], "}"}], ",",
              
             RowBox[{"{", "1", "}"}]}], "]"}]}], ";"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"temp", "-", "Pif"}], ")"}], "/.", 
        RowBox[{"\[Beta]", "\[Rule]", "bz"}]}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{"temp", ",", "\[Rho]"}], "]"}], ",", 
        RowBox[{"Return", "[", "temp", "]"}], ",", 
        RowBox[{"Print", "[", "temp", "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Normal", "[", 
        RowBox[{"Series", "[", 
         RowBox[{"temp", ",", 
          RowBox[{"{", 
           RowBox[{"\[Rho]", ",", "0", ",", "30"}], "}"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"Integrate", "[", 
        RowBox[{"temp", ",", 
         RowBox[{"{", 
          RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"On", "[", 
       RowBox[{"NIntegrate", "::", "\"\<ploss\>\""}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.407065794829*^9, 3.407065801574*^9}}],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0438", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"BesselNorm", "[", 
     RowBox[{"i", ",", "j"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "N"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "0.5`", ",", "0.13475706197095844`", ",", "0.057890069291101874`", ",", 
     "0.036843175568205676`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.`", ",", "0.08110756541334285`", ",", "0.04503473245716415`", ",", 
     "0.031176262813236297`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.`", ",", "0.05768742740874391`", ",", "0.036824254918687384`", ",", 
     "0.027014904075039866`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.`", ",", "0.044483488878310086`", ",", "0.031104368944318603`", ",", 
     "0.023822869521262887`"}], "}"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"BesselJ", "[", 
      RowBox[{"1", ",", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"bz", "[", 
         RowBox[{"0", ",", "1"}], "]"}]}]}], "]"}], 
     RowBox[{"BesselJ", "[", 
      RowBox[{"1", ",", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"bz", "[", 
         RowBox[{"1", ",", "1"}], "]"}]}]}], "]"}]}], "\[Rho]"], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["0.3581994387246221`"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BesselScalar", "[", 
  RowBox[{
   SuperscriptBox["\[Rho]", 
    RowBox[{"-", "1"}]], ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", 
   ",", "1", ",", "\[Rho]"}], "]"}]], "Input"],

Cell[BoxData["0.3581994387246221`"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetHarmCoef", "[", 
    RowBox[{
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"ir", "=", "1"}], "3"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i\[Phi]", "=", "0"}], "3"], 
       RowBox[{
        SubscriptBox["v", 
         RowBox[{"ir", ",", "i\[Phi]"}]], 
        RowBox[{"BesselJ", "[", 
         RowBox[{"i\[Phi]", ",", 
          RowBox[{
           RowBox[{"bz", "[", 
            RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], "]"}], 
        SuperscriptBox["E", 
         RowBox[{"\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}], ",",
      "1", ",", "2"}], "]"}], "//", "Chop"}], "//", "Timing"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"0.875`", " ", "Second"}], ",", 
   RowBox[{"0.9999999999999852`", " ", 
    SubscriptBox["v", 
     RowBox[{"2", ",", "1"}]]}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetHarmCoefSymb", "[", 
    RowBox[{
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"ir", "=", "1"}], "3"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i\[Phi]", "=", "0"}], "3"], 
       RowBox[{
        SubscriptBox["v", 
         RowBox[{"ir", ",", "i\[Phi]"}]], 
        RowBox[{"BesselJ", "[", 
         RowBox[{"i\[Phi]", ",", 
          RowBox[{
           RowBox[{"\[Beta]", "[", 
            RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], "]"}], 
        SuperscriptBox["E", 
         RowBox[{"\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}], ",",
      "1", ",", "2"}], "]"}], "//", "Chop"}], "//", "Timing"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"0.01599999999996271`", " ", "Second"}], ",", 
   RowBox[{"1.`", " ", 
    SubscriptBox["v", 
     RowBox[{"2", ",", "1"}]]}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:0420\:0430\:0437\:043b\:043e\:0436\:0435\:043d\:0438\:0435 \:0440\:0430\
\:0437\:043b\:0438\:0447\:043d\:044b\:0445 \:0444\:0443\:043d\:043a\:0446\
\:0438\:0439 \:043f\:043e \:0431\:0430\:0437\:0438\:0441\:0443\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fi", "=", 
   RowBox[{"FunctionInterpolation", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"r", "<", 
        RowBox[{"1", "/", "2"}]}], ",", "r", ",", 
       RowBox[{
        RowBox[{"-", "2"}], 
        RowBox[{"(", 
         RowBox[{"1", "-", "r"}], ")"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "20"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fi", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["#", "2"]}], ")"}], "&"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fi", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"r", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "-", "r"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"r", "-", 
        RowBox[{"1", "/", "2"}]}], ")"}]}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fi", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"\[Rho]", ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"BesselJ", "[", 
         RowBox[{"1", ",", 
          RowBox[{"\[Rho]", " ", 
           RowBox[{"bz", "[", 
            RowBox[{"0", ",", "1"}], "]"}]}]}], "]"}], " "}], 
       SuperscriptBox["\[Rho]", "1"]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Rho]"}], ")"}], "1"], 
      SuperscriptBox["E", 
       RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]]}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"fi", "[", "r", "]"}], "/.", 
     RowBox[{"\[Phi]", "\[Rule]", "0"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ebas", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"GetHarmCoef", "[", 
     RowBox[{
      RowBox[{"fi", "[", "\[Rho]", "]"}], ",", "0", ",", "#"}], "]"}], "&"}], 
   "/@", 
   RowBox[{"Range", "[", "10", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
   ",", "0", ",", "0"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ebas", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"GetHarmCoefSymb", "[", 
     RowBox[{
      RowBox[{"fi", "[", "\[Rho]", "]"}], ",", "1", ",", "#"}], "]"}], "&"}], 
   "/@", 
   RowBox[{"Range", "[", "10", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.42209385579506387`", ",", "0.0540285387679712`", ",", 
   "0.007720095082051626`", ",", "0.007222697069057538`", ",", 
   "0.0014228605022005847`", ",", "0.002327642152286258`", ",", 
   "0.00044669433239452605`", ",", "0.0010491275652095844`", ",", 
   "0.00017943829394659327`", ",", "0.0005667153641192579`"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0430 \:043e\:0440\:0442\:043e\
\:0433\:043e\:043d\:0430\:043b\:044c\:043d\:043e\:0441\:0442\:0438 \:043e\
\:0441\:0442\:0430\:0442\:043a\:0430\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"firev", "=", 
   RowBox[{"FunctionInterpolation", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"fi", "[", "r", "]"}], "-", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "1"}], "10"], 
       RowBox[{
        RowBox[{
        "ebas", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", 
          RowBox[{
           RowBox[{"bz", "[", 
            RowBox[{"0", ",", "i"}], "]"}], "r"}]}], "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"firev", "=", 
   RowBox[{"FunctionInterpolation", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"fi", "[", "r", "]"}], "-", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "10"], 
        RowBox[{
         RowBox[{
         "ebas", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
         RowBox[{"BesselJ", "[", 
          RowBox[{"1", ",", 
           RowBox[{
            RowBox[{"bz", "[", 
             RowBox[{"1", ",", "i"}], "]"}], "r"}]}], "]"}]}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", "\[Rule]", "0"}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", 
       RowBox[{"-", "0.2"}], ",", "1.2"}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"firev", "[", "r", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}], ";"}]], "Input"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "10"], 
     RowBox[{
      RowBox[{"ebas", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
      
      RowBox[{"BesselJ", "[", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"bz", "[", 
          RowBox[{"1", ",", "i"}], "]"}], "r"}]}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}]], "Input"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:0421\:0438\:0441\:0442\:0435\:043c\:0430 \:043d\:0430 \:043a\:043e\:044d\
\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:044b \:0440\:0430\:0437\
\:043b\:043e\:0436\:0435\:043d\:0438\:044f \:043f\:043e \:0446\:0438\:043b\
\:0438\:043d\:0434\:0440\:0438\:0447\:0435\:0441\:043a\:0438\:043c \:0433\
\:0430\:0440\:043c\:043e\:043d\:0438\:043a\:0430\:043c\
\>", "Subsubsection"],

Cell[CellGroupData[{

Cell["\<\
\:041c\:043d\:043e\:0436\:0438\:0442\:0435\:043b\:044c \:0434\:043b\:044f \
\:0443\:0434\:0430\:043b\:0435\:043d\:0438\:044f \:0441\:0438\:043d\:0433\
\:0443\:043b\:044f\:0440\:043d\:043e\:0441\:0442\:0435\:0439 \:0432 \:0446\
\:0435\:043d\:0442\:0440\:0435 \:0441\:0435\:0447\:0435\:043d\:0438\:044f\
\>", "Text"],

Cell[BoxData[
 SuperscriptBox["\[Rho]", 
  RowBox[{"Exponent", "[", 
   RowBox[{
    RowBox[{"eqs\[Phi]r", "[", 
     RowBox[{"\[Lambda]", ",", "0", ",", "\[Kappa]", ",", "G", ",", "Re"}], 
     "]"}], ",", 
    SuperscriptBox["\[Rho]", 
     RowBox[{"-", "1"}]]}], "]"}]]], "Input",
 CellChangeTimes->{{3.406009706584*^9, 3.4060097068789997`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"\:0422", ".", "\:043a", ".", " ", "\:0443"}], " ", "v\[Zeta]", 
    " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c", " ", "2", " ", 
    "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ",
     "\:043f\:043e", " ", "\[Rho]"}], ",", " ", 
   RowBox[{
   "\:0430", " ", "\:0443", " ", "\[Psi]", " ", 
    "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c", " ", "4"}], ",", " ", 
   
   RowBox[{
    RowBox[{
     RowBox[{
     "\:0442\:043e", " ", 
      "\:0444\:0438\:043a\:0442\:0438\:0432\:043d\:044b\:0435", " ", 
      "\:0441\:043b\:043e\:0438"}], " ", "-", " ", 
     RowBox[{"\:0443", " ", "v\[Zeta]", 
      RowBox[{"(", "f", ")"}]}]}], "=", "1"}], ",", " ", 
   RowBox[{
    RowBox[{"\:0443", " ", "\[Psi]", 
     RowBox[{"(", "g", ")"}]}], "=", "2"}]}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell["\:0412\:0430\:0440\:0438\:0430\:043d\:0442 \:0438\:043d\:0442\:0435\
\:0433\:0440\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \:0432 \:043b\
\:043e\:0431", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SpectralMatrix4EigenDumb", "[", 
    RowBox[{"nr_", ",", "n\[Phi]_", ",", "subst___"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "unk"}], 
      RowBox[{"(*", 
       RowBox[{
       ",", "systcf", ",", "cfs", ",", "v", ",", "\[Psi]c", ",", "vir", ",", 
        "\[Rho]mul", ",", "lhs", ",", "rhs"}], "*)"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]mul", "=", 
       RowBox[{"Exponent", "[", 
        RowBox[{
         RowBox[{"eqs\[Phi]r", "[", 
          RowBox[{
          "\[Lambda]", ",", "0", ",", "\[Kappa]", ",", "G", ",", "Re"}], 
          "]"}], ",", 
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "1"}]]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"\[Rho]mul", "=", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"vir", "=", 
       RowBox[{
        SuperscriptBox["\[Rho]", "\[Rho]mul"], 
        RowBox[{"ReplaceAll", "[", 
         RowBox[{
          RowBox[{"eqs\[Phi]r", "[", 
           RowBox[{
           "\[Lambda]", ",", "\[Omega]", ",", "\[Kappa]", ",", "G", ",", 
            "Re"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"v\[Zeta]", "\[Rule]", 
             RowBox[{"Function", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
               RowBox[{
                UnderoverscriptBox["\[Sum]", 
                 RowBox[{"ir", "=", "1"}], "nr"], 
                RowBox[{
                 UnderoverscriptBox["\[Sum]", 
                  RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
                 RowBox[{
                  SubscriptBox["v", 
                   RowBox[{"ir", ",", "i\[Phi]"}]], 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i\[Phi]", ",", 
                    RowBox[{
                    RowBox[{"bz", "[", 
                    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], 
                   "]"}], 
                  SuperscriptBox["E", 
                   RowBox[{
                   "\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}]}], 
              "]"}]}], ",", 
            RowBox[{"\[Psi]", "\[Rule]", 
             RowBox[{"Function", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
               RowBox[{
                UnderoverscriptBox["\[Sum]", 
                 RowBox[{"ir", "=", "1"}], "nr"], 
                RowBox[{
                 UnderoverscriptBox["\[Sum]", 
                  RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
                 RowBox[{
                  SubscriptBox["\[Psi]c", 
                   RowBox[{"ir", ",", "i\[Phi]"}]], 
                  RowBox[{"BesselJ", "[", 
                   RowBox[{"i\[Phi]", ",", 
                    RowBox[{
                    RowBox[{"bz", "[", 
                    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], 
                   "]"}], 
                  SuperscriptBox["E", 
                   RowBox[{
                   "\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}]}], 
              "]"}]}], ",", "subst"}], "}"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"unk", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            SubscriptBox["v", 
             RowBox[{"ir", ",", "i\[Phi]"}]], ",", 
            SubscriptBox["\[Psi]c", 
             RowBox[{"ir", ",", "i\[Phi]"}]]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ir", ",", "1", ",", "nr"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"systcf", "=", 
       RowBox[{"Outer", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", "vir", ",", "unk"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"cfs", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"GetHarmCoef", "[", 
              RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"ir", ",", "nr"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
           "]"}], "&"}], ",", "systcf", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"cfs", "=", 
       RowBox[{"Flatten", "/@", 
        RowBox[{"Transpose", "[", "cfs", "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"lhs", "=", 
       RowBox[{"-", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"cfs", ",", "\[Lambda]", ",", "0"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"rhs", "=", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"cfs", ",", "\[Lambda]", ",", "1"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{"lhs", ",", "rhs"}], "}"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.40600971644*^9, 3.406009722072*^9}, {
  3.4072021132790003`*^9, 3.407202115073*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:0412\:0430\:0440\:0438\:0430\:043d\:0442 \:0441 \:0438\:043d\:0442\:0435\
\:0433\:0440\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435\:043c \:043f\
\:043e\:0441\:043b\:0435\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SpectralMatrix4Eigen", "[", 
    RowBox[{"nr_", ",", "n\[Phi]_", ",", "subst___"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ","}], 
      RowBox[{"(*", 
       RowBox[{
       "unk", ",", "systcf", ",", "cfs", ",", "v", ",", "\[Psi]c", ",", "vir",
         ",", "\[Rho]mul", ",", "lhs", ",", "rhs"}], "*)"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]mul", "=", 
       RowBox[{"Exponent", "[", 
        RowBox[{
         RowBox[{"eqs\[Phi]r", "[", 
          RowBox[{
          "\[Lambda]", ",", "0", ",", "\[Kappa]", ",", "G", ",", "Re"}], 
          "]"}], ",", 
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "1"}]]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"\[Rho]mul", "=", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"tsoth", "+=", 
       RowBox[{"First", "[", 
        RowBox[{"Timing", "[", 
         RowBox[{
          RowBox[{"vir", "=", 
           RowBox[{
            SuperscriptBox["\[Rho]", "\[Rho]mul"], 
            RowBox[{"ReplaceAll", "[", 
             RowBox[{
              RowBox[{"eqs\[Phi]r", "[", 
               RowBox[{
               "\[Lambda]", ",", "\[Omega]", ",", "\[Kappa]", ",", "G", ",", 
                "Re"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"v\[Zeta]", "\[Rule]", 
                 RowBox[{"Function", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
                   RowBox[{
                    UnderoverscriptBox["\[Sum]", 
                    RowBox[{"ir", "=", "1"}], "nr"], 
                    RowBox[{
                    UnderoverscriptBox["\[Sum]", 
                    RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
                    RowBox[{
                    SubscriptBox["v", 
                    RowBox[{"ir", ",", "i\[Phi]"}]], 
                    RowBox[{"BesselJ", "[", 
                    RowBox[{"i\[Phi]", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], 
                    "]"}], 
                    SuperscriptBox["E", 
                    RowBox[{
                    "\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}]}],
                   "]"}]}], ",", 
                RowBox[{"\[Psi]", "\[Rule]", 
                 RowBox[{"Function", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
                   RowBox[{
                    UnderoverscriptBox["\[Sum]", 
                    RowBox[{"ir", "=", "1"}], "nr"], 
                    RowBox[{
                    UnderoverscriptBox["\[Sum]", 
                    RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
                    RowBox[{
                    SubscriptBox["\[Psi]c", 
                    RowBox[{"ir", ",", "i\[Phi]"}]], 
                    RowBox[{"BesselJ", "[", 
                    RowBox[{"i\[Phi]", ",", 
                    RowBox[{
                    RowBox[{"\[Beta]", "[", 
                    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], 
                    "]"}], 
                    SuperscriptBox["E", 
                    RowBox[{
                    "\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}]}],
                   "]"}]}], ",", "subst"}], "}"}]}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"unk", "=", 
           RowBox[{"Flatten", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                SubscriptBox["v", 
                 RowBox[{"ir", ",", "i\[Phi]"}]], ",", 
                SubscriptBox["\[Psi]c", 
                 RowBox[{"ir", ",", "i\[Phi]"}]]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ir", ",", "1", ",", "nr"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"systcf", "=", 
           RowBox[{"Outer", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", "vir", ",", 
             "unk"}], "]"}]}], ";"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"cfs", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"GetHarmCoefSymb", "[", 
              RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"ir", ",", "nr"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
           "]"}], "&"}], ",", "systcf", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"tslast", "+=", 
       RowBox[{"First", "[", 
        RowBox[{"Timing", "[", 
         RowBox[{
          RowBox[{"cfs", "=", 
           RowBox[{"Flatten", "/@", 
            RowBox[{"Transpose", "[", "cfs", "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"lhs", "=", 
           RowBox[{"-", 
            RowBox[{"Coefficient", "[", 
             RowBox[{"cfs", ",", "\[Lambda]", ",", "0"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"rhs", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"cfs", ",", "\[Lambda]", ",", "1"}], "]"}]}], ";"}], 
         "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{"lhs", ",", "rhs"}], "}"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4060097339519997`*^9, 3.4060097380150003`*^9}, {
  3.407061348476*^9, 3.407061352142*^9}, {3.407065731071*^9, 
  3.4070657467320004`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0420\:0443\:0447\:043d\:044b\:0435 \:043f\:0440\:043e\:0431\:044b", \
"Text"],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"nr", "=", "1"}], ",", 
     RowBox[{"n\[Phi]", "=", "1"}], ",", 
     RowBox[{"subst", "=", 
      RowBox[{"Sequence", "[", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Rho]mul", "=", 
     RowBox[{"Exponent", "[", 
      RowBox[{
       RowBox[{"eqs\[Phi]r", "[", 
        RowBox[{"\[Lambda]", ",", "0", ",", "\[Kappa]", ",", "G", ",", "Re"}],
         "]"}], ",", 
       SuperscriptBox["\[Rho]", 
        RowBox[{"-", "1"}]]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Rho]mul", "=", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"vir", "=", 
     RowBox[{
      SuperscriptBox["\[Rho]", "\[Rho]mul"], 
      RowBox[{"ReplaceAll", "[", 
       RowBox[{
        RowBox[{"eqs\[Phi]r", "[", 
         RowBox[{
         "\[Lambda]", ",", "\[Omega]", ",", "\[Kappa]", ",", "G", ",", "Re"}],
          "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"v\[Zeta]", "\[Rule]", 
           RowBox[{"Function", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"ir", "=", "1"}], "nr"], 
              RowBox[{
               UnderoverscriptBox["\[Sum]", 
                RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
               RowBox[{
                SubscriptBox["v", 
                 RowBox[{"ir", ",", "i\[Phi]"}]], 
                RowBox[{"BesselJ", "[", 
                 RowBox[{"i\[Phi]", ",", 
                  RowBox[{
                   RowBox[{"\[Beta]", "[", 
                    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], 
                 "]"}], 
                SuperscriptBox["E", 
                 RowBox[{
                 "\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}]}], 
            "]"}]}], ",", 
          RowBox[{"\[Psi]", "\[Rule]", 
           RowBox[{"Function", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"ir", "=", "1"}], "nr"], 
              RowBox[{
               UnderoverscriptBox["\[Sum]", 
                RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
               RowBox[{
                SubscriptBox["\[Psi]c", 
                 RowBox[{"ir", ",", "i\[Phi]"}]], 
                RowBox[{"BesselJ", "[", 
                 RowBox[{"i\[Phi]", ",", 
                  RowBox[{
                   RowBox[{"\[Beta]", "[", 
                    RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], 
                 "]"}], 
                SuperscriptBox["E", 
                 RowBox[{
                 "\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}]}], 
            "]"}]}], ",", "subst"}], "}"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"unk", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["v", 
           RowBox[{"ir", ",", "i\[Phi]"}]], ",", 
          SubscriptBox["\[Psi]c", 
           RowBox[{"ir", ",", "i\[Phi]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ir", ",", "1", ",", "nr"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"systcf", "=", 
     RowBox[{"Outer", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", "vir", ",", "unk"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"cfs", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"GetHarmCoefSymb", "[", 
            RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ir", ",", "nr"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
         "]"}], "&"}], ",", "systcf", ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"cfs", "=", 
     RowBox[{"Flatten", "/@", 
      RowBox[{"Transpose", "[", "cfs", "]"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{"lhs", "=", 
     RowBox[{"-", 
      RowBox[{"Coefficient", "[", 
       RowBox[{"cfs", ",", "\[Lambda]", ",", "1"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"rhs", "=", 
     RowBox[{"Coefficient", "[", 
      RowBox[{"cfs", ",", "\[Lambda]", ",", "0"}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.406009741159*^9, 3.4060097435699997`*^9}, {
  3.40705561106*^9, 3.407055611848*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GetHarmCoef", "[", 
     RowBox[{"#", ",", "1", ",", "1"}], "]"}], "&"}], "/@", 
   RowBox[{"Flatten", "[", 
    RowBox[{"systcf", "/.", 
     RowBox[{"\[Beta]", "\[Rule]", "bz"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{3.407200906962*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"44.24099999999997`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"0.8271888679026279`", " ", "\[Kappa]"}], "Re"], "-", 
      RowBox[{"0.00020955151867979615`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", "\[Kappa]"}], "-", 
      RowBox[{
      "0.001371907248145815`", " ", "G", " ", "Re", " ", "\[Kappa]", " ", 
       "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{
      "0.003663617894511084`", " ", "\[ImaginaryI]", " ", "G", " ", 
       "\[Kappa]"}], "-", 
      RowBox[{"7.262103288013162`*^-6", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "2"], " ", "\[Kappa]"}], "-", 
      RowBox[{
      "1.6543777358052558`", " ", "\[ImaginaryI]", " ", "\[Kappa]", " ", 
       "\[Omega]"}], "-", 
      RowBox[{"0.00004729162594195154`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "2"], " ", 
       SuperscriptBox["Re", "2"], " ", "\[Kappa]", " ", "\[Omega]"}]}], ",", 
     RowBox[{
      FractionBox["8.11124283470187`", "Re"], "+", 
      FractionBox[
       RowBox[{"0.13811570381822574`", " ", 
        SuperscriptBox["\[Kappa]", "2"]}], "Re"], "+", 
      RowBox[{"0.000035171573253170863`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "+", 
      RowBox[{"0.5524628152729025`", " ", "\[Lambda]"}], "+", 
      RowBox[{"0.0003065177154563483`", " ", "G", " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{"0.27623140763645126`", " ", "\[ImaginaryI]", " ", "G"}], "-", 
      RowBox[{"0.000022983737169076405`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"1.2690825710190054`*^-9", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "5"], " ", 
       SuperscriptBox["Re", "4"], " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"0.0003288570469243819`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "2"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"1.628846656862427`*^-8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "4"], " ", 
       SuperscriptBox["Re", "4"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"0.001175515834171731`", " ", "\[ImaginaryI]", " ", "G", " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "-", 
      RowBox[{"5.228205662337605`*^-8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "4"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "0.38609569104087177`"}], " ", "\[ImaginaryI]", " ", "G", 
       " ", "\[Kappa]"}], "-", 
      RowBox[{
      "1.6543777358052558`", " ", "\[ImaginaryI]", " ", "\[Kappa]", " ", 
       "\[Omega]"}]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{"9.567574099120641`", " ", "\[Kappa]"}], "Re"], "+", 
      RowBox[{"0.0017328120180966616`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", "\[Kappa]"}], "+", 
      RowBox[{"0.8271888679026279`", " ", "\[Kappa]", " ", "\[Lambda]"}], "+",
       
      RowBox[{
      "0.011709581752474801`", " ", "G", " ", "Re", " ", "\[Kappa]", " ", 
       "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{"0.10554364993718747`", " ", "\[ImaginaryI]", " ", "G", " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"6.049980216903352`*^-6", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"0.00003925915005140591`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "2"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}]}], ",", 
     RowBox[{
      FractionBox["119.08902917023062`", "Re"], "+", 
      FractionBox[
       RowBox[{"8.111242834701873`", " ", 
        SuperscriptBox["\[Kappa]", "2"]}], "Re"], "+", 
      RowBox[{"0.0025472067201447596`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "+", 
      RowBox[{"8.11124283470187`", " ", "\[Lambda]"}], "+", 
      RowBox[{"0.13811570381822574`", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Lambda]"}], "+", 
      RowBox[{"0.014944359904591004`", " ", "G", " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.407055749073*^9, 3.407061166585*^9, 3.407200962541*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GetHarmCoefSymb", "[", 
     RowBox[{"#", ",", "1", ",", "1"}], "]"}], "&"}], "/@", 
   RowBox[{"Flatten", "[", "systcf", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407061126017*^9, 3.4070611309049997`*^9}, {
   3.407065698898*^9, 3.407065700098*^9}, 3.40720091194*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.3080000000000203`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"0.8271888679026279`", " ", "\[Kappa]"}], "Re"], "-", 
      RowBox[{"0.00020955151867979645`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", "\[Kappa]"}], "-", 
      RowBox[{
      "0.0013719072481458156`", " ", "G", " ", "Re", " ", "\[Kappa]", " ", 
       "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{
      "0.003663617894511112`", " ", "\[ImaginaryI]", " ", "G", " ", 
       "\[Kappa]"}], "-", 
      RowBox[{"7.262103288013159`*^-6", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "2"], " ", "\[Kappa]"}], "-", 
      RowBox[{
      "1.6543777358052558`", " ", "\[ImaginaryI]", " ", "\[Kappa]", " ", 
       "\[Omega]"}], "-", 
      RowBox[{"0.000047291625941951556`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "2"], " ", 
       SuperscriptBox["Re", "2"], " ", "\[Kappa]", " ", "\[Omega]"}]}], ",", 
     RowBox[{
      FractionBox["8.11124283470187`", "Re"], "+", 
      FractionBox[
       RowBox[{"0.1381157038182258`", " ", 
        SuperscriptBox["\[Kappa]", "2"]}], "Re"], "+", 
      RowBox[{"0.000035171573253170647`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "+", 
      RowBox[{"0.5524628152729025`", " ", "\[Lambda]"}], "+", 
      RowBox[{"0.0003065177154563479`", " ", "G", " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{"0.27623140763645126`", " ", "\[ImaginaryI]", " ", "G"}], "-", 
      RowBox[{"0.000022983737169076405`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"1.2690825710190021`*^-9", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "5"], " ", 
       SuperscriptBox["Re", "4"], " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"0.0003288570469243819`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "2"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"1.6288466568624298`*^-8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "4"], " ", 
       SuperscriptBox["Re", "4"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"0.001175515834171731`", " ", "\[ImaginaryI]", " ", "G", " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "-", 
      RowBox[{"5.228205662337605`*^-8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "4"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "0.3860956910408717`"}], " ", "\[ImaginaryI]", " ", "G", 
       " ", "\[Kappa]"}], "-", 
      RowBox[{
      "1.6543777358052558`", " ", "\[ImaginaryI]", " ", "\[Kappa]", " ", 
       "\[Omega]"}]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{"9.567574099120637`", " ", "\[Kappa]"}], "Re"], "+", 
      RowBox[{"0.0017328120180966633`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", "\[Kappa]"}], "+", 
      RowBox[{"0.8271888679026279`", " ", "\[Kappa]", " ", "\[Lambda]"}], "+",
       
      RowBox[{
      "0.01170958175247478`", " ", "G", " ", "Re", " ", "\[Kappa]", " ", 
       "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{"0.10554364993718748`", " ", "\[ImaginaryI]", " ", "G", " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"6.049980216903352`*^-6", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "3"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "-", 
      RowBox[{"0.00003925915005140591`", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["G", "2"], " ", 
       SuperscriptBox["Re", "2"], " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}]}], ",", 
     RowBox[{
      FractionBox["119.08902917023062`", "Re"], "+", 
      FractionBox[
       RowBox[{"8.11124283470188`", " ", 
        SuperscriptBox["\[Kappa]", "2"]}], "Re"], "+", 
      RowBox[{"0.0025472067201447656`", " ", 
       SuperscriptBox["G", "2"], " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"]}], "+", 
      RowBox[{"8.11124283470187`", " ", "\[Lambda]"}], "+", 
      RowBox[{"0.1381157038182258`", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Lambda]"}], "+", 
      RowBox[{"0.014944359904590976`", " ", "G", " ", "Re", " ", 
       SuperscriptBox["\[Kappa]", "2"], " ", "\[Omega]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4070557498459997`*^9, 3.40706116773*^9, 
  3.407065712725*^9, 3.407200459251*^9, 3.407200965137*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cfs1", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"GetHarmCoef", "[", 
          RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"ir", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i\[Phi]", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], 
      "&"}], ",", 
     RowBox[{"systcf", "/.", 
      RowBox[{"\[Beta]", "\[Rule]", "bz"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.407201122759*^9, 3.407201176046*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cfs2", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"GetHarmCoefSymb", "[", 
          RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"ir", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i\[Phi]", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], 
      "&"}], ",", "systcf", ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.407201126135*^9, 3.407201148535*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"%124", "-", "%123"}], "//", "Chop"}]], "Input",
 CellChangeTimes->{{3.407060956116*^9, 3.407060957413*^9}, {
  3.4070612233719997`*^9, 3.4070612258900003`*^9}, {3.40720053296*^9, 
  3.407200533087*^9}, {3.4072009733529997`*^9, 3.407200975974*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "41.93299999999995`"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4070610338789997`*^9, 3.4070612263529997`*^9, 
  3.407200533597*^9, 3.407200981075*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"cfs1", "-", "cfs2"}], "//", "Chop"}]], "Input",
 CellChangeTimes->{{3.407201137106*^9, 3.4072011531730003`*^9}, {
  3.407201186884*^9, 3.407201188766*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407201280934*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0421\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:0434\:0432\
\:0443\:0445 \:0441\:043f\:043e\:0441\:043e\:0431\:043e\:0432", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"nr", "=", "2"}], ",", 
      RowBox[{"n\[Phi]", "=", "2"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"GetHarmCoef", "[", 
            RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ir", ",", "nr"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
         "]"}], "&"}], ",", "systcf0", ",", 
       RowBox[{"{", "2", "}"}]}], "]"}], "-", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"GetHarmCoefSymb", "[", 
            RowBox[{"#", ",", "i\[Phi]", ",", "ir"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ir", ",", "nr"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i\[Phi]", ",", "0", ",", "n\[Phi]"}], "}"}]}], "]"}], 
         "]"}], "&"}], ",", "systcf", ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}]}], "]"}], "//", "Chop"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"rhs", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"G", "\[Rule]", "4"}], ",", 
     RowBox[{"Re", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
     RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
     RowBox[{"\[Kappa]", "\[Rule]", "0.1"}]}], "}"}]}], "//", 
  "TableForm"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"mat", "=", 
    RowBox[{"SpectralMatrix4Eigen", "[", 
     RowBox[{"5", ",", "5"}], "]"}]}], ";"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"11070.625`", " ", "Second"}], ",", "Null"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"mat1", "=", 
    RowBox[{"SpectralMatrix4Eigen1", "[", 
     RowBox[{"5", ",", "5"}], "]"}]}], ";"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"507.6880000000001`", " ", "Second"}], ",", "Null"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"ts\[Phi]", ",", "ts1", ",", "ts2", ",", "tsoth", ",", "tslast"}], 
  "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"113.46800000000206`", " ", "Second"}], ",", 
   RowBox[{"48.92199999999724`", " ", "Second"}], ",", 
   RowBox[{"354.69200000000023`", " ", "Second"}], ",", 
   RowBox[{"2.7190000000001646`", " ", "Second"}], ",", 
   RowBox[{"0.10800000000017462`", " ", "Second"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"Abs", "[", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"mat1", "-", "mat"}], "//", "Chop"}], "]"}], "]"}], 
  "]"}]], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0418\:0441\:0441\:043b\:0435\:0434\:043e\:0432\:0430\:043d\:0438\:0435\
 \:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:0438\:0439", "Section",
 CellChangeTimes->{{3.403841085709*^9, 3.4038410954379997`*^9}}],

Cell[CellGroupData[{

Cell["\:0424\:0443\:043d\:043a\:0446\:0438\:0438 \:043d\:0430\:0445\:043e\
\:0436\:0434\:0435\:043d\:0438\:044f \:0438\:043d\:043a\:0440\:0435\:043c\
\:0435\:043d\:0442\:043e\:0432", "Subsection"],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0441.\:0437. \:0438 \
\:0441.\:0432. \:0441 \:043f\:043e\:043c\:043e\:0449\:044c\:044e \
Eigen...[Inverse[a].m] (\:043c\:0435\:043d\:0435\:0435 \:0443\:0441\:0442\
\:043e\:0439\:0447\:0438\:0432\:043e)\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_"}], "]"}], ":=", 
   RowBox[{"Eigenvalues", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Inverse", "[", 
        RowBox[{"Last", "[", "#", "]"}], "]"}], ".", 
       RowBox[{"First", "[", "#", "]"}]}], "&"}], "[", 
     RowBox[{"N", "[", 
      RowBox[{"FiniteMatrix4Eigen", "[", 
       RowBox[{"n", ",", "m", ",", 
        RowBox[{"k", "\[Rule]", "k1"}], ",", 
        RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWave", "[", 
    RowBox[{"n1_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "syst"}], "}"}], ",", 
     
     RowBox[{
      RowBox[{"syst", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Inverse", "[", 
           RowBox[{"Last", "[", "#", "]"}], "]"}], ".", 
          RowBox[{"First", "[", "#", "]"}]}], "&"}], "[", 
        RowBox[{"N", "[", 
         RowBox[{"FiniteMatrix4Eigen", "[", 
          RowBox[{"n1", ",", "m", ",", 
           RowBox[{"k", "\[Rule]", "k1"}], ",", 
           RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
       "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
       "]"}], ";"}]}], "]"}]}], ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0441.\:0437. \:0438 \
\:0441.\:0432. \:0441 \:043f\:043e\:043c\:043e\:0449\:044c\:044e \
Eigen...[{m,a}]\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrementsM", "[", 
    RowBox[{"mat_", ",", 
     RowBox[{"subst_List:", 
      RowBox[{"{", "}"}]}]}], "]"}], ":=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Eigenvalues", "[", 
      RowBox[{"mat", "/.", "subst"}], "]"}], ",", "NumericQ"}], "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWaveM", "[", 
    RowBox[{"syst_", ",", "nr_", ",", "n\[Phi]_", ",", "subst_List", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "cfs"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", 
            RowBox[{"syst", "/.", "subst"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"cfs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Partition", "[", 
          RowBox[{"#", ",", 
           RowBox[{"n\[Phi]", "+", "1"}]}], "]"}], "&"}], "/@", 
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{
          "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
          ",", 
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{
            "eigvec", "\[LeftDoubleBracket]", "nom", 
             "\[RightDoubleBracket]"}], "]"}], "/", "2"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"ir", "=", "1"}], "nr"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
           RowBox[{
            RowBox[{"cfs", "\[LeftDoubleBracket]", 
             RowBox[{"#", ",", "ir", ",", 
              RowBox[{"i\[Phi]", "+", "1"}]}], "\[RightDoubleBracket]"}], 
            RowBox[{"BesselJ", "[", 
             RowBox[{"i\[Phi]", ",", 
              RowBox[{
               RowBox[{"bz", "[", 
                RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], "]"}], 
            SuperscriptBox["E", 
             RowBox[{"\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}], 
         "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{
    "nr_", ",", "n\[Phi]_", ",", "\[Kappa]1_", ",", "R1_", ",", "subst___"}], 
    "]"}], ":=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Eigenvalues", "[", 
      RowBox[{"N", "[", 
       RowBox[{"SpectralMatrix4Eigen", "[", 
        RowBox[{"nr", ",", "n\[Phi]", ",", 
         RowBox[{"\[Kappa]", "\[Rule]", "\[Kappa]1"}], ",", 
         RowBox[{"Re", "\[Rule]", "R1"}], ",", "subst", ",", 
         RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
         RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
         RowBox[{"G", "\[Rule]", "4"}]}], "]"}], "]"}], "]"}], ",", 
     "NumericQ"}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWave", "[", 
    RowBox[{"n1_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "syst", ",", "cfs"}], 
      "}"}], ",", 
     RowBox[{
      RowBox[{"syst", "=", 
       RowBox[{"N", "[", 
        RowBox[{"SpectralMatrix4Eigen", "[", 
         RowBox[{"n1", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k1"}], ",", 
          RowBox[{"Re", "\[Rule]", "R1"}], ",", 
          RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
          RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
          RowBox[{"G", "\[Rule]", "4"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"cfs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Partition", "[", 
          RowBox[{"#", ",", 
           RowBox[{"n\[Phi]", "+", "1"}]}], "]"}], "&"}], "/@", 
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{
          "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
          ",", 
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{
            "eigvec", "\[LeftDoubleBracket]", "nom", 
             "\[RightDoubleBracket]"}], "]"}], "/", "2"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"ir", "=", "1"}], "nr"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"i\[Phi]", "=", "0"}], "n\[Phi]"], 
           RowBox[{
            RowBox[{"cfs", "\[LeftDoubleBracket]", 
             RowBox[{"#", ",", "ir", ",", 
              RowBox[{"i\[Phi]", "+", "1"}]}], "\[RightDoubleBracket]"}], 
            RowBox[{"BesselJ", "[", 
             RowBox[{"i\[Phi]", ",", 
              RowBox[{
               RowBox[{"bz", "[", 
                RowBox[{"i\[Phi]", ",", "ir"}], "]"}], "\[Rho]"}]}], "]"}], 
            SuperscriptBox["E", 
             RowBox[{"\[ImaginaryI]", " ", "i\[Phi]", " ", "\[Phi]"}]]}]}]}], 
         "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetMainIncrement", "[", 
    RowBox[{"mat_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"num_:", "1"}]}], "]"}], ":=", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "k1", ",", "R1", ",", "num"}], "]"}], "="}], "*)"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{"num", ",", "k1", ",", "R1"}], "}"}], "]"}], ";", 
     RowBox[{
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "/@", 
          RowBox[{"GetIncrementsM", "[", 
           RowBox[{"mat", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
              RowBox[{"Re", "\[Rule]", "R1"}], ",", 
              RowBox[{"G", "\[Rule]", "4"}], ",", 
              RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
              RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"-", "num"}], "}"}]}], "]"}], "//", "First"}]}], ")"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.391865489598*^9, 3.3918655295808*^9}, {
  3.3918655928076*^9, 3.3918655942896*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0438", "Subsubsection"],

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"GetIncrements", "[", 
      RowBox[{"20", ",", "0", ",", "1", ",", "100"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", "10"}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetMainIncrement", "[", 
  RowBox[{"100", ",", "0", ",", "1", ",", "100", ",", "2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"100", ",", "1", ",", "100"}], "}"}]], "Print"],

Cell[BoxData[
 RowBox[{"-", "0.2736337556281337`"}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:041e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", " ", 
   "\:0432", " ", 
   "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\:0442\:0435\:043b\:0435",
    " ", "\:043f\:043e\:0441\:043b\:0435", " ", 
   "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438", " ", 
   "\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:0433\:043e",
    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n2", "=", "3"}], ",", 
       RowBox[{"m", "=", "0"}], ",", 
       RowBox[{"k2", "=", "1"}], ",", 
       RowBox[{"R2", "=", "100"}], ",", 
       RowBox[{"mod", "=", "1"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Det", "[", 
        RowBox[{"SetPrecision", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#", "]"}], "-", 
           RowBox[{
            RowBox[{
             RowBox[{"Sort", "[", 
              RowBox[{
               RowBox[{"GetIncrements", "[", 
                RowBox[{"n2", ",", "m", ",", "k2", ",", "R2"}], "]"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Re", "[", "#1", "]"}], ">", 
                 RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "[", 
             RowBox[{"[", "mod", "]"}], "]"}], 
            RowBox[{"Last", "[", "#", "]"}]}]}], ",", "1000"}], "]"}], "]"}], 
       "&"}], "[", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n2", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k2"}], ",", 
          RowBox[{"R", "\[Rule]", "R2"}]}], "]"}], ",", "1000"}], "]"}], 
      "]"}]}], "]"}]}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:041e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", " ", 
    "\:0432", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0435", " ", 
    "\:043f\:043e\:0441\:043b\:0435", " ", 
    "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438", " ",
     "\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:044b\:0445", 
    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0439", " ", "\:0438", 
    " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043e\:0432"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"n2", "=", "300"}], ",", 
         RowBox[{"m", "=", "0"}], ",", 
         RowBox[{"k2", "=", "1"}], ",", 
         RowBox[{"R2", "=", "1000"}], ",", 
         RowBox[{"mod", "=", "2"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"First", "[", "#", "]"}], "-", 
            RowBox[{
             RowBox[{
              RowBox[{"Sort", "[", 
               RowBox[{
                RowBox[{"GetIncrements", "[", 
                 RowBox[{"n2", ",", "m", ",", "k2", ",", "R2"}], "]"}], ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Re", "[", "#1", "]"}], ">", 
                  RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "[", 
              RowBox[{"[", "mod", "]"}], "]"}], 
             RowBox[{"Last", "[", "#", "]"}]}]}], ")"}], ".", 
          RowBox[{"GetEigenWave", "[", 
           RowBox[{"n2", ",", "m", ",", "k2", ",", "R2", ",", "mod"}], 
           "]"}]}], "&"}], "[", 
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n2", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k2"}], ",", 
          RowBox[{"R", "\[Rule]", "R2"}]}], "]"}], "]"}]}], "]"}], "//", 
     "Abs"}], "//", "PrintRange"}], ";"}]}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"mat", "=", 
    RowBox[{"SpectralMatrix4Eigen", "[", 
     RowBox[{"5", ",", "5"}], "]"}]}], ";"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2102.6119999999996`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.407052819016*^9, 3.407205937648*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetWorkDir", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.391865541468*^9, 3.3918655516236*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DumpSave", "[", 
   RowBox[{"\"\<spectral_matrix5x5k2.mx\>\"", ",", "mat"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.3914527598946*^9, 3.3914527908918*^9}, {
  3.3914528304378*^9, 3.3914528613101997`*^9}, {3.3914529793866*^9, 
  3.3914529885594*^9}, {3.4070530674960003`*^9, 3.407053067907*^9}}],

Cell[BoxData[
 RowBox[{"<<", "\"\<spectral_matrix5x5k2.mx\>\""}]], "Input",
 CellChangeTimes->{{3.391452891777*^9, 3.3914529013866*^9}, {
  3.4070555095369997`*^9, 3.40705550985*^9}}],

Cell[BoxData[
 RowBox[{"<<", "\"\<spectral_matrix5x5.mx\>\""}]], "Input",
 CellChangeTimes->{{3.407893828818*^9, 3.40789382902*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Re", "[", 
   RowBox[{"GetIncrementsM", "[", 
    RowBox[{"mat", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Kappa]", "\[Rule]", "0.0"}], ",", 
       RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
       RowBox[{"G", "\[Rule]", "4"}], ",", 
       RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
       RowBox[{"Re", "\[Rule]", "1000"}]}], "}"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.3918656112312*^9, 3.3918656136024*^9}, {
  3.3918656597784*^9, 3.3918656607144003`*^9}, {3.407891716284*^9, 
  3.407891732458*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"mat1", "=", 
   RowBox[{"mat", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Kappa]", "\[Rule]", "1"}], ",", 
      RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
      RowBox[{"G", "\[Rule]", "4"}], ",", 
      RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
      RowBox[{"Re", "\[Rule]", "10"}]}], "}"}]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Re", "/@", 
   RowBox[{"GetIncrementsM", "[", 
    RowBox[{"mat", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Kappa]", "\[Rule]", "0.002"}], ",", 
       RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
       RowBox[{"G", "\[Rule]", "4"}], ",", 
       RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
       RowBox[{"Re", "\[Rule]", "300"}]}], "}"}]}], "]"}]}], "//", 
  "Sort"}]], "Input",
 CellChangeTimes->{{3.405938427738*^9, 3.4059384549630003`*^9}, {
   3.4059385391140003`*^9, 3.405938588067*^9}, {3.4059389420559998`*^9, 
   3.4059389770360003`*^9}, {3.405939108174*^9, 3.405939109427*^9}, 
   3.407212482712*^9, 3.407217132395*^9, {3.4072173011099997`*^9, 
   3.407217310176*^9}, {3.4072173701*^9, 3.407217370494*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.645132647520794`"}], ",", 
   RowBox[{"-", "1.6451326475207806`"}], ",", 
   RowBox[{"-", "1.4409258335688655`"}], ",", 
   RowBox[{"-", "1.4409258335687567`"}], ",", 
   RowBox[{"-", "1.250568229482805`"}], ",", 
   RowBox[{"-", "1.2505682294827503`"}], ",", 
   RowBox[{"-", "1.2097007831551603`"}], ",", 
   RowBox[{"-", "1.1995561969060886`"}], ",", 
   RowBox[{"-", "1.0699858704303165`"}], ",", 
   RowBox[{"-", "1.0699858704302916`"}], ",", 
   RowBox[{"-", "1.0407599427226946`"}], ",", 
   RowBox[{"-", "1.0293629784774523`"}], ",", 
   RowBox[{"-", "0.8995670297022033`"}], ",", 
   RowBox[{"-", "0.8991901000461686`"}], ",", 
   RowBox[{"-", "0.8829691269074227`"}], ",", 
   RowBox[{"-", "0.8724238799976233`"}], ",", 
   RowBox[{"-", "0.8297511514206894`"}], ",", 
   RowBox[{"-", "0.8199531857709541`"}], ",", 
   RowBox[{"-", "0.7405359455403334`"}], ",", 
   RowBox[{"-", "0.7394695406936456`"}], ",", 
   RowBox[{"-", "0.7344364323905839`"}], ",", 
   RowBox[{"-", "0.7252562040408076`"}], ",", 
   RowBox[{"-", "0.6966775712627027`"}], ",", 
   RowBox[{"-", "0.6836602320720973`"}], ",", 
   RowBox[{"-", "0.5935594078528823`"}], ",", 
   RowBox[{"-", "0.5886169583245499`"}], ",", 
   RowBox[{"-", "0.5719273954948478`"}], ",", 
   RowBox[{"-", "0.5598239020129233`"}], ",", 
   RowBox[{"-", "0.5146943130522467`"}], ",", 
   RowBox[{"-", "0.5024467195709142`"}], ",", 
   RowBox[{"-", "0.4633820346015584`"}], ",", 
   RowBox[{"-", "0.4629534445370717`"}], ",", 
   RowBox[{"-", "0.45579744648185316`"}], ",", 
   RowBox[{"-", "0.44575585177950006`"}], ",", 
   RowBox[{"-", "0.42030354969173667`"}], ",", 
   RowBox[{"-", "0.3994855049377513`"}], ",", 
   RowBox[{"-", "0.34868117041930335`"}], ",", 
   RowBox[{"-", "0.34224173456082063`"}], ",", 
   RowBox[{"-", "0.3294444191252695`"}], ",", 
   RowBox[{"-", "0.3085087183875811`"}], ",", 
   RowBox[{"-", "0.2599426201036101`"}], ",", 
   RowBox[{"-", "0.25017455822904533`"}], ",", 
   RowBox[{"-", "0.25017455822901585`"}], ",", 
   RowBox[{"-", "0.24669297692218908`"}], ",", 
   RowBox[{"-", "0.24669297692210332`"}], ",", 
   RowBox[{"-", "0.22747085771805575`"}], ",", 
   RowBox[{"-", "0.2108839753888176`"}], ",", 
   RowBox[{"-", "0.1735305767278752`"}], ",", 
   RowBox[{"-", "0.1704498610621342`"}], ",", 
   RowBox[{"-", "0.16311621005392488`"}], ",", 
   RowBox[{"-", "0.15482784384996495`"}], ",", 
   RowBox[{"-", "0.11371036002745931`"}], ",", 
   RowBox[{"-", "0.11371036002745546`"}], ",", 
   RowBox[{"-", "0.10293155389619146`"}], ",", 
   RowBox[{"-", "0.10119569503305105`"}], ",", 
   RowBox[{"-", "0.06828357878591829`"}], ",", 
   RowBox[{"-", "0.06828357878591776`"}], ",", 
   RowBox[{"-", "0.02899580226244471`"}], ",", 
   RowBox[{"-", "0.028995802262221083`"}], ",", 
   RowBox[{"-", "0.019497293573698397`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407893844506*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0418\:0441\:0441\:043b\:0435\:0434\:043e\:0432\:0430\:043d\:0438\:0435\
 \:0433\:043b\:0430\:0432\:043d\:044b\:0445 \:0433\:0430\:0440\:043c\:043e\
\:043d\:0438\:043a", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Short", "[", 
  RowBox[{
   RowBox[{"ew", "=", 
    RowBox[{
     RowBox[{"GetEigenWaveM", "[", 
      RowBox[{"mat", ",", "5", ",", "5", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Kappa]", "\[Rule]", "0.002"}], ",", 
         RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
         RowBox[{"G", "\[Rule]", "4"}], ",", 
         RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
         RowBox[{"Re", "\[Rule]", "300"}]}], "}"}], ",", "4"}], "]"}], "//", 
     "Chop"}]}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{
  3.398663520196*^9, {3.405939001108*^9, 3.405939008301*^9}, {
   3.405939927892*^9, 3.405939969076*^9}, {3.405940000016*^9, 
   3.40594001316*^9}, 3.40594133409*^9, 3.407206109365*^9, {
   3.4072074822720003`*^9, 3.4072075011029997`*^9}, {3.4072075377139997`*^9, 
   3.407207569788*^9}, {3.407207707535*^9, 3.4072077226689997`*^9}, {
   3.407207889057*^9, 3.4072078918900003`*^9}, 3.407217124408*^9, {
   3.407217386899*^9, 3.407217389634*^9}, 3.407891762105*^9, 
   3.4078935823719997`*^9, 3.4078940115179996`*^9, 3.4078945451610003`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Main eigen value is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", "0.06828357878591776`"}], "+", 
    RowBox[{"0.013342940765677795`", " ", "\[ImaginaryI]"}]}]}],
  SequenceForm["Main eigen value is ", 
   Complex[-0.06828357878591776, 0.013342940765677795`]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4072060570810003`*^9, 3.4072061104960003`*^9, {3.407207487865*^9, 
   3.407207498366*^9}, {3.407207538651*^9, 3.407207570767*^9}, {
   3.407207709034*^9, 3.407207726865*^9}, {3.407207889859*^9, 
   3.40720789269*^9}, 3.407210371207*^9, 3.407217390591*^9, 
   3.4078917631940002`*^9, 3.4078932271*^9, 3.407893583326*^9, 
   3.407893853594*^9, 3.407894012322*^9, 3.407894545763*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"\[LeftSkeleton]", "36", "\[RightSkeleton]"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.000050635013925825945`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.00013398047902403055`", " ", "\[ImaginaryI]"}]}], ")"}], 
      " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", 
      RowBox[{"BesselJ", "[", 
       RowBox[{"5", ",", 
        RowBox[{"12.338604197466944`", " ", "\[Rho]"}]}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4.617872368864733`*^-6", "+", 
        RowBox[{"0.000012753395819161084`", " ", "\[ImaginaryI]"}]}], ")"}], 
      " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", 
      RowBox[{"BesselJ", "[", 
       RowBox[{"5", ",", 
        RowBox[{"15.70017407971167`", " ", "\[Rho]"}]}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.0520583056204294`*^-6", "+", 
        RowBox[{"7.75798645920503`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], " ",
       
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", 
      RowBox[{"BesselJ", "[", 
       RowBox[{"5", ",", 
        RowBox[{"18.98013387517992`", " ", "\[Rho]"}]}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.7004993905877062`*^-7", "+", 
        RowBox[{"6.778509419216509`*^-7", " ", "\[ImaginaryI]"}]}], ")"}], 
      " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", 
      RowBox[{"BesselJ", "[", 
       RowBox[{"5", ",", 
        RowBox[{"22.217799896561267`", " ", "\[Rho]"}]}], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.03178738236199485`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.15335387751366966`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      RowBox[{"BesselJ", "[", 
       RowBox[{"0", ",", 
        RowBox[{"2.404825557695773`", " ", "\[Rho]"}]}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.10365971502145571`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.13275202686155343`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      RowBox[{"BesselJ", "[", 
       RowBox[{"0", ",", 
        RowBox[{"5.52007811028631`", " ", "\[Rho]"}]}], "]"}]}], "+", 
     RowBox[{"\[LeftSkeleton]", "26", "\[RightSkeleton]"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.000011320278386505937`", "\[InvisibleSpace]", "-", 
        RowBox[{"5.12688132232521`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], " ",
       
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", 
      RowBox[{"BesselJ", "[", 
       RowBox[{"5", ",", 
        RowBox[{"18.98013387517992`", " ", "\[Rho]"}]}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.4974812403196`*^-6", "-", 
        RowBox[{"5.58278893519835`*^-7", " ", "\[ImaginaryI]"}]}], ")"}], " ",
       
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", 
      RowBox[{"BesselJ", "[", 
       RowBox[{"5", ",", 
        RowBox[{"22.217799896561267`", " ", "\[Rho]"}]}], "]"}]}]}]}], "}"}],
  Short[#, 10]& ]], "Output",
 CellChangeTimes->{
  3.407206057105*^9, 3.407206110516*^9, {3.407207488008*^9, 
   3.4072074984040003`*^9}, {3.407207538709*^9, 3.40720757088*^9}, {
   3.407207709083*^9, 3.4072077269*^9}, {3.407207889906*^9, 
   3.407207892712*^9}, 3.4072103717539997`*^9, 3.407217391289*^9, 
   3.407891766733*^9, 3.407893227135*^9, 3.407893583341*^9, 3.407893853616*^9,
    3.407894012341*^9, 3.4078945457790003`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"Im", ",", "ew", ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "//.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Im", "[", 
       RowBox[{"a_", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"Re", "[", "a", "]"}], 
        RowBox[{"Im", "[", "b", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Im", "[", "a", "]"}], 
        RowBox[{"Re", "[", "b", "]"}]}]}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"\[Phi]", "\[Element]", "Reals"}], "\[And]", 
    RowBox[{"\[Rho]", ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3913472095748*^9, 3.3913472793388*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "0.9087178117531924`"}], " ", 
     RowBox[{"BesselJ", "[", 
      RowBox[{"0", ",", 
       RowBox[{"2.404825557695773`", " ", "\[Rho]"}]}], "]"}]}], "-", 
    RowBox[{"0.3296202733994492`", " ", 
     RowBox[{"BesselJ", "[", 
      RowBox[{"0", ",", 
       RowBox[{"5.52007811028631`", " ", "\[Rho]"}]}], "]"}]}], "-", 
    RowBox[{"0.16189509957550416`", " ", 
     RowBox[{"BesselJ", "[", 
      RowBox[{"0", ",", 
       RowBox[{"8.653727912911013`", " ", "\[Rho]"}]}], "]"}]}], "-", 
    RowBox[{"0.09405686358835645`", " ", 
     RowBox[{"BesselJ", "[", 
      RowBox[{"0", ",", 
       RowBox[{"11.791534439014281`", " ", "\[Rho]"}]}], "]"}]}], "-", 
    RowBox[{"0.045274569540470995`", " ", 
     RowBox[{"BesselJ", "[", 
      RowBox[{"0", ",", 
       RowBox[{"14.930917708487787`", " ", "\[Rho]"}]}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.3913466689888*^9, 3.3913472100518*^9, {3.3913472602718*^9, 
   3.3913472803297997`*^9}, 3.3913473487448*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ew", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Rho]", "\[Rule]", "0.2"}], ",", 
    RowBox[{"\[Phi]", "\[Rule]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.3913472906378*^9, 3.3913473095968*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.2892365546388659`"}], "+", 
    RowBox[{"0.46613275742242405`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.8618589111222883`", "\[InvisibleSpace]", "+", 
    RowBox[{"0.534785633642111`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",\

 CellChangeTimes->{3.3913473099178*^9, 3.3913473500308*^9, 3.405940116586*^9, 
  3.4078927941549997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NumMode", "[", "expr_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ex", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"expr", ",", 
          SuperscriptBox["10", 
           RowBox[{"-", "5"}]]}], "]"}]}], ",", "modes"}], "}"}], ",", 
     RowBox[{
      RowBox[{"modes", "=", 
       FractionBox[
        RowBox[{"Union", "[", 
         RowBox[{"Extract", "[", 
          RowBox[{"ex", ",", 
           RowBox[{"Position", "[", 
            RowBox[{"ex", ",", 
             RowBox[{
              RowBox[{"Complex", "[", 
               RowBox[{"0", ",", "n_Integer"}], "]"}], " ", "\[Phi]"}]}], 
            "]"}]}], "]"}], "]"}], 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "modes", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", "0", "}"}], ",", "modes"}], "]"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.407891805027*^9, 3.407891808921*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumMode", "/@", "ew"}]], "Input",
 CellChangeTimes->{{3.405940126383*^9, 3.4059401435360003`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.405940143849*^9, 3.405941444376*^9, 3.407206122135*^9, 
  3.407217395954*^9, 3.407891770434*^9, 3.407891897446*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0421\:0445\:043e\:0434\:0438\:043c\:043e\:0441\:0442\:044c", \
"Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linctor1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"GetIncrements", "[", 
         RowBox[{"n", ",", "3", ",", "0.2", ",", "1"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Re", "[", "#1", "]"}], ">", 
          RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "//", "Chop"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linctor2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"GetIncrements", "[", 
         RowBox[{"2", ",", "n", ",", "0.2", ",", "1"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Re", "[", "#1", "]"}], ">", 
          RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "//", "Chop"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell["\:0412 \:0437\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\
\:0438 \:043e\:0442 nfi", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], "&"}], "/@", "linctor2"}], 
   "]"}], ";"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0820106 0.10582 658.023 44.7595 [
[.34127 .04657 -3 -9 ]
[.34127 .04657 3 0 ]
[.55291 .04657 -3 -9 ]
[.55291 .04657 3 0 ]
[.76455 .04657 -3 -9 ]
[.76455 .04657 3 0 ]
[.97619 .04657 -6 -9 ]
[.97619 .04657 6 0 ]
[.11713 .14859 -42 -4.5 ]
[.11713 .14859 0 4.5 ]
[.11713 .2381 -42 -4.5 ]
[.11713 .2381 0 4.5 ]
[.11713 .32762 -42 -4.5 ]
[.11713 .32762 0 4.5 ]
[.11713 .41714 -42 -4.5 ]
[.11713 .41714 0 4.5 ]
[.11713 .50666 -36 -4.5 ]
[.11713 .50666 0 4.5 ]
[.11713 .59618 -42 -4.5 ]
[.11713 .59618 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.34127 .05907 m
.34127 .06532 L
s
[(4)] .34127 .04657 0 1 Mshowa
.55291 .05907 m
.55291 .06532 L
s
[(6)] .55291 .04657 0 1 Mshowa
.76455 .05907 m
.76455 .06532 L
s
[(8)] .76455 .04657 0 1 Mshowa
.97619 .05907 m
.97619 .06532 L
s
[(10)] .97619 .04657 0 1 Mshowa
.125 Mabswid
.18254 .05907 m
.18254 .06282 L
s
.23545 .05907 m
.23545 .06282 L
s
.28836 .05907 m
.28836 .06282 L
s
.39418 .05907 m
.39418 .06282 L
s
.44709 .05907 m
.44709 .06282 L
s
.5 .05907 m
.5 .06282 L
s
.60582 .05907 m
.60582 .06282 L
s
.65873 .05907 m
.65873 .06282 L
s
.71164 .05907 m
.71164 .06282 L
s
.81746 .05907 m
.81746 .06282 L
s
.87037 .05907 m
.87037 .06282 L
s
.92328 .05907 m
.92328 .06282 L
s
.07672 .05907 m
.07672 .06282 L
s
.02381 .05907 m
.02381 .06282 L
s
.25 Mabswid
0 .05907 m
1 .05907 L
s
.12963 .14859 m
.13588 .14859 L
s
[(-14.698)] .11713 .14859 1 0 Mshowa
.12963 .2381 m
.13588 .2381 L
s
[(-14.696)] .11713 .2381 1 0 Mshowa
.12963 .32762 m
.13588 .32762 L
s
[(-14.694)] .11713 .32762 1 0 Mshowa
.12963 .41714 m
.13588 .41714 L
s
[(-14.692)] .11713 .41714 1 0 Mshowa
.12963 .50666 m
.13588 .50666 L
s
[(-14.69)] .11713 .50666 1 0 Mshowa
.12963 .59618 m
.13588 .59618 L
s
[(-14.688)] .11713 .59618 1 0 Mshowa
.125 Mabswid
.12963 .08145 m
.13338 .08145 L
s
.12963 .10383 m
.13338 .10383 L
s
.12963 .12621 m
.13338 .12621 L
s
.12963 .17097 m
.13338 .17097 L
s
.12963 .19335 m
.13338 .19335 L
s
.12963 .21572 m
.13338 .21572 L
s
.12963 .26048 m
.13338 .26048 L
s
.12963 .28286 m
.13338 .28286 L
s
.12963 .30524 m
.13338 .30524 L
s
.12963 .35 m
.13338 .35 L
s
.12963 .37238 m
.13338 .37238 L
s
.12963 .39476 m
.13338 .39476 L
s
.12963 .43952 m
.13338 .43952 L
s
.12963 .4619 m
.13338 .4619 L
s
.12963 .48428 m
.13338 .48428 L
s
.12963 .52904 m
.13338 .52904 L
s
.12963 .55142 m
.13338 .55142 L
s
.12963 .5738 m
.13338 .5738 L
s
.12963 .03669 m
.13338 .03669 L
s
.12963 .01431 m
.13338 .01431 L
s
.25 Mabswid
.12963 0 m
.12963 .61803 L
s
.5 Mabswid
.02381 .60332 m
.12963 .01472 L
.23545 .0154 L
.34127 .0154 L
.44709 .0154 L
.55291 .0154 L
.65873 .0154 L
.76455 .0154 L
.87037 .0154 L
.97619 .0154 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW1lvGjEQNusF0pCk932EHmrTI/Q+nqpKaaF96F+ohKJK8FC1SvN7+1co
NmDvrr+1vV4blgOFXccz33g842N2vHzvnw5+/uqfDo/77d5J/89gePy33f19
Mq6iNUJqA0LIvzZh5dG4OL2Mxn+jIbuwGnP5A79RMgGPJl927VSIzrt2wHko
mf7LPxG7xPmSvoK6I36tp1ucyvwM+CNQ98mSD9XVllLd9+zGzd1lpYZsvkKq
9XhFnGIaf76wQix056WjebWbwXYXYZfsuBKmyACRwqiBj+zKq2IHlWJhMmk8
mvYT8g4V1DjbP87wYlL7DvR1megtduPVPziNXAK2OAvqdvAgvGAJR3XnPPMt
I7Y5MeRbbN1vAIFmVs+ST99acpxYsLzhN7w+h+eLs3xU8HXCtPsaGBQtRkkd
1gajWP8V4KQG6auGeQnoaEuzwigW9iq9ApgGu/FpWBf95Ri+CTdEndyp66LU
MMjeAnSEoaI9LjtnVWhoaNkZJGWV125b025zauMkzVEdmsfEhfHYvKXRhAo/
RtOeZHSa3aX7OOkw3xgUd25HCEAzMQKgMuNFp4TFUEfqODpIzoVsP9hnN1d3
pFCud9BWYFrwkNnqYkrtCbUzwbaVS55bTpJFYDqA3hS9teJ0kb6kmENARyMn
GEbxysI10mCeAfqZqmMUC7tIfwro2xXBFA9WcrYjuIxnWwsRvqQ3jUjDP7fw
JSqribfIhZqUWLOwBVvCNIF9xinmOhfj5AYnmaltGnhPAL1lwDwGdOSVYBhl
kZ6XRgeAjkbDWmIUrzwCnHsG6RsMIQ8BHaVgrTCKV7xK94wpHpzIhxVfm71d
KKLbXdBjhCmH5CMUsd1vkC4m/UoGKJJLluYSjthbysVDAUMUFxWLhy2RGOw2
J5ZIso2ZULBC5BsLwoYNwWdq5QGgn686RlmK7wNOdC65yph7gH5xnhjFKwvX
SIO5C+joIHzpMYpXXKS3Af1yAEzxsCUWiPAZlORddwCENtFQYUvy3tToZHpQ
tw1LEgkaJUFRFw5BHQkdoCBBYPf0GJgkBkmYWNFn9kTpgq9RKmOS3bSX5Pyk
cnTmy94H9CsGzB1AvzpPjLK6LlwjDeY2oF9bRYzilVuA87pB+gZDyE1Av+GK
UbziVbpnDH++kpGIXNX0CRSNRPQ+oHxOk1FOkXMb9jWt2fp2dbkG1CPT+T/X
XmYl9MGE8RAGZzZQj/DGN2uodOhgMqi+eQuPuSgicwC+D1dcTKB/y8MUnaOV
CK1YlcIoKxrasdAutcGkMShyQRGOFUbxilfpnjEowt1fRYziFRfpKH/QrggG
5S6yj17Tjwwf5Mtv9q/B5acK0m/yzRocWZ/CoI1BeW5Eu5fLW4G6DMrW4lSl
0lR5sQtJZ9xDK1smcYLab4IxV270FW3cOh7y4tGgWRRfs8HXO7Khfy7Ly4af
/JLaf8zWWUA=\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {0.45274, -14.7015, 0.0340262, \
8.04443}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
    RowBox[{"Log", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#", "-", 
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"linctor1", "[", 
             RowBox[{"[", 
              RowBox[{"-", "1"}], "]"}], "]"}], ",", 
            RowBox[{"Length", "[", "#", "]"}]}], "]"}]}], ")"}], "&"}], "/@", 
       "linctor1"}], "]"}], "]"}]}], "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics", "::", "\<\"gptn\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Coordinate \\!\\(Indeterminate\\) in \\!\\({20, \
Indeterminate}\\) is not a floating-point number. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Graphics::gptn\\\"]\\)\"\>"}]], "Message"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0263158 0.0501253 1.20376 0.042752 [
[.099 -0.0058 -9 -9 ]
[.099 -0.0058 9 0 ]
[.34962 -0.0058 -9 -9 ]
[.34962 -0.0058 9 0 ]
[.47494 -0.0058 -6 -9 ]
[.47494 -0.0058 6 0 ]
[.60025 -0.0058 -12 -9 ]
[.60025 -0.0058 12 0 ]
[.72556 -0.0058 -6 -9 ]
[.72556 -0.0058 6 0 ]
[.85088 -0.0058 -12 -9 ]
[.85088 -0.0058 12 0 ]
[.97619 -0.0058 -6 -9 ]
[.97619 -0.0058 6 0 ]
[.21181 .0922 -18 -4.5 ]
[.21181 .0922 0 4.5 ]
[.21181 .17771 -18 -4.5 ]
[.21181 .17771 0 4.5 ]
[.21181 .26321 -18 -4.5 ]
[.21181 .26321 0 4.5 ]
[.21181 .34872 -18 -4.5 ]
[.21181 .34872 0 4.5 ]
[.21181 .43422 -18 -4.5 ]
[.21181 .43422 0 4.5 ]
[.21181 .51973 -18 -4.5 ]
[.21181 .51973 0 4.5 ]
[.21181 .60523 -18 -4.5 ]
[.21181 .60523 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.099 .0067 m
.099 .01295 L
s
[(2.5)] .099 -0.0058 0 1 Mshowa
.34962 .0067 m
.34962 .01295 L
s
[(7.5)] .34962 -0.0058 0 1 Mshowa
.47494 .0067 m
.47494 .01295 L
s
[(10)] .47494 -0.0058 0 1 Mshowa
.60025 .0067 m
.60025 .01295 L
s
[(12.5)] .60025 -0.0058 0 1 Mshowa
.72556 .0067 m
.72556 .01295 L
s
[(15)] .72556 -0.0058 0 1 Mshowa
.85088 .0067 m
.85088 .01295 L
s
[(17.5)] .85088 -0.0058 0 1 Mshowa
.97619 .0067 m
.97619 .01295 L
s
[(20)] .97619 -0.0058 0 1 Mshowa
.125 Mabswid
.12406 .0067 m
.12406 .01045 L
s
.14912 .0067 m
.14912 .01045 L
s
.17419 .0067 m
.17419 .01045 L
s
.19925 .0067 m
.19925 .01045 L
s
.24937 .0067 m
.24937 .01045 L
s
.27444 .0067 m
.27444 .01045 L
s
.2995 .0067 m
.2995 .01045 L
s
.32456 .0067 m
.32456 .01045 L
s
.37469 .0067 m
.37469 .01045 L
s
.39975 .0067 m
.39975 .01045 L
s
.42481 .0067 m
.42481 .01045 L
s
.44987 .0067 m
.44987 .01045 L
s
.5 .0067 m
.5 .01045 L
s
.52506 .0067 m
.52506 .01045 L
s
.55013 .0067 m
.55013 .01045 L
s
.57519 .0067 m
.57519 .01045 L
s
.62531 .0067 m
.62531 .01045 L
s
.65038 .0067 m
.65038 .01045 L
s
.67544 .0067 m
.67544 .01045 L
s
.7005 .0067 m
.7005 .01045 L
s
.75063 .0067 m
.75063 .01045 L
s
.77569 .0067 m
.77569 .01045 L
s
.80075 .0067 m
.80075 .01045 L
s
.82581 .0067 m
.82581 .01045 L
s
.87594 .0067 m
.87594 .01045 L
s
.901 .0067 m
.901 .01045 L
s
.92607 .0067 m
.92607 .01045 L
s
.95113 .0067 m
.95113 .01045 L
s
.07393 .0067 m
.07393 .01045 L
s
.04887 .0067 m
.04887 .01045 L
s
.02381 .0067 m
.02381 .01045 L
s
.25 Mabswid
0 .0067 m
1 .0067 L
s
.22431 .0922 m
.23056 .0922 L
s
[(-26)] .21181 .0922 1 0 Mshowa
.22431 .17771 m
.23056 .17771 L
s
[(-24)] .21181 .17771 1 0 Mshowa
.22431 .26321 m
.23056 .26321 L
s
[(-22)] .21181 .26321 1 0 Mshowa
.22431 .34872 m
.23056 .34872 L
s
[(-20)] .21181 .34872 1 0 Mshowa
.22431 .43422 m
.23056 .43422 L
s
[(-18)] .21181 .43422 1 0 Mshowa
.22431 .51973 m
.23056 .51973 L
s
[(-16)] .21181 .51973 1 0 Mshowa
.22431 .60523 m
.23056 .60523 L
s
[(-14)] .21181 .60523 1 0 Mshowa
.125 Mabswid
.22431 .02808 m
.22806 .02808 L
s
.22431 .04945 m
.22806 .04945 L
s
.22431 .07083 m
.22806 .07083 L
s
.22431 .11358 m
.22806 .11358 L
s
.22431 .13496 m
.22806 .13496 L
s
.22431 .15633 m
.22806 .15633 L
s
.22431 .19909 m
.22806 .19909 L
s
.22431 .22046 m
.22806 .22046 L
s
.22431 .24184 m
.22806 .24184 L
s
.22431 .28459 m
.22806 .28459 L
s
.22431 .30597 m
.22806 .30597 L
s
.22431 .32734 m
.22806 .32734 L
s
.22431 .37009 m
.22806 .37009 L
s
.22431 .39147 m
.22806 .39147 L
s
.22431 .41285 m
.22806 .41285 L
s
.22431 .4556 m
.22806 .4556 L
s
.22431 .47697 m
.22806 .47697 L
s
.22431 .49835 m
.22806 .49835 L
s
.22431 .5411 m
.22806 .5411 L
s
.22431 .56248 m
.22806 .56248 L
s
.22431 .58385 m
.22806 .58385 L
s
.25 Mabswid
.22431 0 m
.22431 .61803 L
s
.5 Mabswid
.02381 .60332 m
.07393 .24889 L
.12406 .04024 L
.17419 .04444 L
.22431 .0416 L
.27444 .01472 L
.32456 .04473 L
.37469 .04458 L
.42481 .03155 L
.47494 .03127 L
.52506 .04182 L
.57519 .01741 L
.62531 .03414 L
.67544 .04863 L
.72556 .05716 L
.77569 .06135 L
.82581 .04172 L
.87594 .01892 L
.92607 .02401 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW0tvFEcQbu/s2sY87MX2ghewNyTYIQQTcF487UAARYjIioSswCGxUCT7
EAUB/4NLDlFOXDnyh/grjrtmqJ6Z/voxve3ZJSwSo3Z1f19VV/VUP6b34fbL
nT/+3H65+3S7d//59rOd3acvevf+er4vSsaEGNsRQrzrCVne2y9mj7Nib2+v
JYstWWpwqSlLt2VJJIKa7pfk/yZo12WWhGUdljWsOuat2JanBYqlybIZai2o
i6JVoKCKgkFNoKgBZOtWg3xZFjzbIdm8sV2sPs5Fts4eRF+rjlv6mHhyHE0R
n4Kqtmewp2sIJ+oOsg8FaqKPoKC+zZqC5+/uz0DVDJBtANmxGtyNuoPs68fd
4559Qzoqju5zoOqwfFJWvANqp7j2dGTXolGmbDlh6izVnvR045QV4Wt95rxl
k4KS7C6QHQKyM5EdanRASYZcgcYRepfQmEZ962YhzsvIiQJn9czFtgn5CICh
tIDchUw8JZ+JySDEMltC+NvZYSQa9ScqW4L607HYFDIJUg0JiPOWLI3L0mGW
nTKNJOMrlwDmjqkd1aJE0AC2zBddnF/mEWg3rLwF1NNzOk49jRYK0iZ7RcBU
j0YOkqE00E+7Ydcx7PaNfNCfjnSVKS6CqhUgQysnlGEQFsnQrO+LzUxHOYDe
e9rkZMn5/b/f5V/U9l8zeorRyGNPuFal299kaUqWVs20kwxUpV+LMgI8ZhkZ
ckiWzplpx7m56vUjLh0tygh6LUemukkltPre5No2UyjZTbNlDW40yyXqSKco
U/P3A5at22gFnrgW5bN0jqF8olYkd7n0Q04LCbrcvMtkS7JE86HaO/e4dp1l
P6Zk33DQ2lxa5EZzDDzPpWVWf5VL93JkKOBtHjPICXM8jqjya1b/k5l2Cche
sY0XizHKOEvNe6znbw7AMst+dgBLsn/kc1JKTjPFZjWK1xyAGTb/l2oUb9gK
9Z49SinWQPNPgOwtj5+tasD8SiYqhnpBf2druCug5VkH+yAx0zy8WhxYNAvm
eS6D+rT7to2U5Wivoi50jtSKrGOShxra6zh7lPC4sOhA51JqW+KKwleg3nyw
WpSh7bGLu13RwyH2H2ffTXDJFT3Eg47r8phLoB6dOXlhtBwQld2CWQX1aBn4
oWCMS2fNw76LbC/2yJgvQf3n/0eMFpULoOV5B/sgMWptS7nKK9t8AerTFTTO
jCjTohnFpQMdUqFFawg3VRnnuoRr8cyGGLsmHtEsyIR7mkOBNR/xR6E/aYln
eXyE6lhgX07wuxTCg8Z1HoPebvRGe2G0Nz4quwWDci7KzR8KBs2Eq9DDxpYh
7JExaH2C1jFDhdE8jNaKaE2ZZx8khj7Hqdsmav4K4bF+h8F1IboWgQzNtK59
Cbr1QLO4cfYy7ky0eQxxo3MB3/NgFzfarRuvmVTkXjyg2CJdS+xNtT4IiSPa
IQ8Cg+JCJyda5jC2DGH/iDDorVqDHja2DGH/iDA9UK+OrvMeNrYMYa8BQ94o
3ZJ0ZS0jT5+3EFA7l170vvjepgjRR/sM+97OV7M2Yy6Blmjd5XtZyNU/pG/Z
EkffHrt02G77xBorSK+63qKuirjGOuJB36gODKNlGLT2+9bBPsJYMJqH0QW9
7xzsI4wFE8XD6JDq+yHGUCYt/YrBlW0QDzrfiTUDDIM+GgvqPLQfzdqMii4q
olM//wj5MsbyGNK3wn2NtdKpx09X68RoOSeEHZ27XxthUozm4RB2dNn8+giT
YjQPh7CjL103asLQtyy1u0x8MgfiQd8zbOdurvPDQemgXbJxrnNq0+a3Sv3w
ytvVPFOUuU4p0c3IC9Zx4bIWMaJvRcp7rqghxpt1YrR3vi6L0GXpWyNMitGi
EsKObpOtjzC5i8p5D9dlEfrNzUYAhr7ulm5+urIN4kHfMFEedH3HOkhuWgvY
92yWGy73ASbwNktEKnX3vtwy1BD14wUXmsrZL8/E2H93YfDE\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-0.199929, -29.0788, \
0.0745121, 0.0873629}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0412 \:0437\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\
\:0438 \:043e\:0442 nr", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "]"}], "&"}], "/@", "linctor1"}], 
   "]"}], ";"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0820106 0.10582 355.98 24.1778 [
[.34127 .55411 -3 -9 ]
[.34127 .55411 3 0 ]
[.55291 .55411 -3 -9 ]
[.55291 .55411 3 0 ]
[.76455 .55411 -3 -9 ]
[.76455 .55411 3 0 ]
[.97619 .55411 -6 -9 ]
[.97619 .55411 6 0 ]
[.11713 .08305 -36 -4.5 ]
[.11713 .08305 0 4.5 ]
[.11713 .20394 -42 -4.5 ]
[.11713 .20394 0 4.5 ]
[.11713 .32483 -36 -4.5 ]
[.11713 .32483 0 4.5 ]
[.11713 .44572 -42 -4.5 ]
[.11713 .44572 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.34127 .56661 m
.34127 .57286 L
s
[(4)] .34127 .55411 0 1 Mshowa
.55291 .56661 m
.55291 .57286 L
s
[(6)] .55291 .55411 0 1 Mshowa
.76455 .56661 m
.76455 .57286 L
s
[(8)] .76455 .55411 0 1 Mshowa
.97619 .56661 m
.97619 .57286 L
s
[(10)] .97619 .55411 0 1 Mshowa
.125 Mabswid
.18254 .56661 m
.18254 .57036 L
s
.23545 .56661 m
.23545 .57036 L
s
.28836 .56661 m
.28836 .57036 L
s
.39418 .56661 m
.39418 .57036 L
s
.44709 .56661 m
.44709 .57036 L
s
.5 .56661 m
.5 .57036 L
s
.60582 .56661 m
.60582 .57036 L
s
.65873 .56661 m
.65873 .57036 L
s
.71164 .56661 m
.71164 .57036 L
s
.81746 .56661 m
.81746 .57036 L
s
.87037 .56661 m
.87037 .57036 L
s
.92328 .56661 m
.92328 .57036 L
s
.07672 .56661 m
.07672 .57036 L
s
.02381 .56661 m
.02381 .57036 L
s
.25 Mabswid
0 .56661 m
1 .56661 L
s
.12963 .08305 m
.13588 .08305 L
s
[(-14.72)] .11713 .08305 1 0 Mshowa
.12963 .20394 m
.13588 .20394 L
s
[(-14.715)] .11713 .20394 1 0 Mshowa
.12963 .32483 m
.13588 .32483 L
s
[(-14.71)] .11713 .32483 1 0 Mshowa
.12963 .44572 m
.13588 .44572 L
s
[(-14.705)] .11713 .44572 1 0 Mshowa
.125 Mabswid
.12963 .10723 m
.13338 .10723 L
s
.12963 .13141 m
.13338 .13141 L
s
.12963 .15559 m
.13338 .15559 L
s
.12963 .17976 m
.13338 .17976 L
s
.12963 .22812 m
.13338 .22812 L
s
.12963 .2523 m
.13338 .2523 L
s
.12963 .27647 m
.13338 .27647 L
s
.12963 .30065 m
.13338 .30065 L
s
.12963 .34901 m
.13338 .34901 L
s
.12963 .37319 m
.13338 .37319 L
s
.12963 .39736 m
.13338 .39736 L
s
.12963 .42154 m
.13338 .42154 L
s
.12963 .4699 m
.13338 .4699 L
s
.12963 .49407 m
.13338 .49407 L
s
.12963 .51825 m
.13338 .51825 L
s
.12963 .54243 m
.13338 .54243 L
s
.12963 .05888 m
.13338 .05888 L
s
.12963 .0347 m
.13338 .0347 L
s
.12963 .01052 m
.13338 .01052 L
s
.12963 .59079 m
.13338 .59079 L
s
.12963 .61496 m
.13338 .61496 L
s
.25 Mabswid
.12963 0 m
.12963 .61803 L
s
.5 Mabswid
.02381 .01472 m
.12963 .54302 L
.23545 .60332 L
.34127 .57364 L
.44709 .58907 L
.55291 .57882 L
.65873 .58551 L
.76455 .58051 L
.87037 .58416 L
.97619 .58125 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW9tSE0EQ3WQ3IQHEACIgCBG5KAIiipcXSwsDpVX+glUpyip48FLIt/g1
fosPfoYPxsys9GZ3Ts/MXlg2W6Zg00z36e6Znktv7/K+e37y8VP3/PS42z46
6349OT3+1j78ctZvciuOUzlxHOdn2xF0r0/+u/T6P71TcREtZvq5/HIdH9zz
f8V1J0O+6/tnj7oB+HcKgpkB/HYZMUrUbgLJZYP2smFmAX8pT4wSlbw8mgP8
25eAmRBfNcGtUX89QVUFNQLQVULUDbpbgF8j3TWzFacW1t2Tu25KuxOA64I2
5NWgFamxTj1B/tfj2JO98mi+bfN98dFeqK3/uQ5EPW4oYg4fYxKJIpOoTZmF
Loqt+Iyx80NxCA2sybh+uoxRIF1y0jQ1bgH+QhkxyvaYRDviIz1lxiwC/nxS
jBKVTLVnjEEHFDrIyoxBycAsjCQrmUR7ATDLgI8SxUJhlKgk0Y5uFNDNwVVg
5CEcKyl0CSEpeS6b0rQG4COMq7XMJl8WbShbSOLhOHmIuOx4aSy7NPix8kqU
6rDmlVwTdTdlrpluNuiMB/cQGeTydZrmfP4ZduPCgyApRL6Y7KJOo9ST7WeN
4w5aWQH86SHG3AX8KYqDlWQS7QXArAL+ZNExSlSSaF8DfHTjVmbMOuCjjfjS
MEokr9wjDWYD8NGZOfQYJSr3gOQ1g/YiY+LXKO3PRrTmLJJQNtnLyp4+pTRZ
SVObZEuGQ1ab1GeJJkPZVCR7lgVD2xJkkp5sAj7y/yowDwB/NClG2Qcz1Z4x
Zgvwm2XEKFHZBpLoPqjMmB3AN+0RmWKUqOTl0UPAN5UGyobZBXzTLs5ilEhm
qj1jzCPANz2eS1iM9Egux2IkX3jETyrZ9CSJa+OxHAJBsPLG5YSiWSV+ds8+
HQ6Mp69L6kwrCZrVbUIMF1q42dN4hkqWpgqxTcnSaiJm7ZhtTTOySq3CsJfA
nySYx5bL5tIwyq6el0dPNLNBUrvDIbcPox4Z1H28IlQ9OYg8jTicB78aHRCT
kmfiS6Le0iztEHUoKNnJ14KKPA70oiregRAdaML7xnI6v7KUQ22VoXRSDnw9
MF8g147wzO/QtAgmzUF6u+hN547Gg4joYX4jhDyNmqfhgT0ym3oprkG+HNM5
l8IXBDJY8GzElAVv/056sB1t6YQuPJJ/b/KS7I3FBo+phbVrJEfCkmu8ZDMs
6T/38xMhGeMPUhq+HY/KpqgtqBajqNpqQVXINHLDiPXv6lIFIygdo4ea/wde
O/BoAbVodsvsT55uv3jxKRKXe43ci+S6bgjqhaDGBPWdV4HCv0HKZFhHBHVf
UE1ByeU8TkYXBCX3hGlBNXlTM+TtKs2bRTIwTwbaZEAOx5Sg5Juma4TABmbJ
wBL1YJ2Go0EGZI7aEtRnXtk8KZsjZXuk7McA0CUHIyomCfibt7NIdoLV9IcX
XyLxBmnv+W0spk2YahhT5zErhJF/j/KSprMuNt/qBB3kS9rw/2hO5S+MwypT
\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {0.45274, -14.7238, 0.0340262, \
0.000148924}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "7", "]"}], "]"}], "&"}], "/@", 
    RowBox[{"Log", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#", "-", 
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"linctor1", "[", 
             RowBox[{"[", 
              RowBox[{"-", "1"}], "]"}], "]"}], ",", 
            RowBox[{"Length", "[", "#", "]"}]}], "]"}]}], ")"}], "&"}], "/@", 
       "linctor1"}], "]"}], "]"}]}], "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics", "::", "\<\"gptn\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Coordinate \\!\\(Indeterminate\\) in \\!\\({10, \
Indeterminate}\\) is not a floating-point number. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Graphics::gptn\\\"]\\)\"\>"}]], "Message"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0820106 0.10582 0.485602 0.050643 [
[.34127 .4731 -3 -9 ]
[.34127 .4731 3 0 ]
[.55291 .4731 -3 -9 ]
[.55291 .4731 3 0 ]
[.76455 .4731 -3 -9 ]
[.76455 .4731 3 0 ]
[.97619 .4731 -6 -9 ]
[.97619 .4731 6 0 ]
[.11713 .08046 -12 -4.5 ]
[.11713 .08046 0 4.5 ]
[.11713 .18174 -12 -4.5 ]
[.11713 .18174 0 4.5 ]
[.11713 .28303 -12 -4.5 ]
[.11713 .28303 0 4.5 ]
[.11713 .38432 -12 -4.5 ]
[.11713 .38432 0 4.5 ]
[.11713 .58689 -6 -4.5 ]
[.11713 .58689 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.34127 .4856 m
.34127 .49185 L
s
[(4)] .34127 .4731 0 1 Mshowa
.55291 .4856 m
.55291 .49185 L
s
[(6)] .55291 .4731 0 1 Mshowa
.76455 .4856 m
.76455 .49185 L
s
[(8)] .76455 .4731 0 1 Mshowa
.97619 .4856 m
.97619 .49185 L
s
[(10)] .97619 .4731 0 1 Mshowa
.125 Mabswid
.18254 .4856 m
.18254 .48935 L
s
.23545 .4856 m
.23545 .48935 L
s
.28836 .4856 m
.28836 .48935 L
s
.39418 .4856 m
.39418 .48935 L
s
.44709 .4856 m
.44709 .48935 L
s
.5 .4856 m
.5 .48935 L
s
.60582 .4856 m
.60582 .48935 L
s
.65873 .4856 m
.65873 .48935 L
s
.71164 .4856 m
.71164 .48935 L
s
.81746 .4856 m
.81746 .48935 L
s
.87037 .4856 m
.87037 .48935 L
s
.92328 .4856 m
.92328 .48935 L
s
.07672 .4856 m
.07672 .48935 L
s
.02381 .4856 m
.02381 .48935 L
s
.25 Mabswid
0 .4856 m
1 .4856 L
s
.12963 .08046 m
.13588 .08046 L
s
[(-8)] .11713 .08046 1 0 Mshowa
.12963 .18174 m
.13588 .18174 L
s
[(-6)] .11713 .18174 1 0 Mshowa
.12963 .28303 m
.13588 .28303 L
s
[(-4)] .11713 .28303 1 0 Mshowa
.12963 .38432 m
.13588 .38432 L
s
[(-2)] .11713 .38432 1 0 Mshowa
.12963 .58689 m
.13588 .58689 L
s
[(2)] .11713 .58689 1 0 Mshowa
.125 Mabswid
.12963 .10578 m
.13338 .10578 L
s
.12963 .1311 m
.13338 .1311 L
s
.12963 .15642 m
.13338 .15642 L
s
.12963 .20707 m
.13338 .20707 L
s
.12963 .23239 m
.13338 .23239 L
s
.12963 .25771 m
.13338 .25771 L
s
.12963 .30835 m
.13338 .30835 L
s
.12963 .33367 m
.13338 .33367 L
s
.12963 .35899 m
.13338 .35899 L
s
.12963 .40964 m
.13338 .40964 L
s
.12963 .43496 m
.13338 .43496 L
s
.12963 .46028 m
.13338 .46028 L
s
.12963 .51092 m
.13338 .51092 L
s
.12963 .53624 m
.13338 .53624 L
s
.12963 .56157 m
.13338 .56157 L
s
.12963 .05514 m
.13338 .05514 L
s
.12963 .02982 m
.13338 .02982 L
s
.12963 .00449 m
.13338 .00449 L
s
.12963 .61221 m
.13338 .61221 L
s
.25 Mabswid
.12963 0 m
.12963 .61803 L
s
.5 Mabswid
.02381 .60332 m
.12963 .23121 L
.23545 .16987 L
.34127 .13196 L
.44709 .12249 L
.55291 .07387 L
.65873 .09775 L
.76455 .01472 L
.87037 .08276 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW1tLFVEUHj0e75pmpnk9al5ST5pZmSUlljcQgp57EAn0ISovFBURREQE
BdFPCSIiiAjpQhZd6C711GMQQRDBydkzrjN75lt7xjkXPdGBhmmt7/vWmr33
rH2ZGhufnTx6bHx2amI8NDQ9fmJyamImNHh8eskUSNO0tElN0xZDmn4fWbo1
L1u1SCSiBTTxl6U78Ue/9ohbzZM/YOitkLVC/1dgO8zDv4hrBtnMn4KxqF/T
dUsG8B7iiZ+BLUhiCuInYMsGtjFe4iOw5VJsK1Fg3pNrHSCO8nHeAVsRiSmI
b4GtBNiGeIk3FKeM7hTw18C2CdgO8BKvgK2SYiuIL4GtBtj6eYkXFKee7hTw
58C2mYj77ANgAcCbgW0vH/EZsG2hiAriUwIh726e+ATYOkhMQXwMbF3AtpOX
eARs3RTbJIoGF7UmE8DnbanK3u2GRANwpQNbANhuUvgw8PZS+DiEukFiokgG
9Ts0fvqArdMIL16kTN2BgrKJiOe7TuHzyFYnvybirtNLv1wjeDE9SyXADQBb
OPamvEovZTmFLwW42dhDXaEnDVEoNAHMeWm2yyTWTLgcsp3mX6VLBApTFihb
hcRFkuim1jvLwy8Q6BYPOk+aty0ggTlHrjs8/wyB7vKgU6R5jwfNkdJ9HjRD
oAc86CSBHvKgKf2arVvmedAR/ZqvWxZ4kFjjFOiWD/YmHKYg33j+QYJ/50ED
9Ew/eNB+UvrJg/oI9IsH7aFwv3lQDyn94UE7CBThQV0yKGBvx05KR/gzeaWw
rJTNI1tlZB6PbJGjF/LIRlmziEc2yJrGotDCR7WnTuYY5dKoV1pQQgrH0i8I
VGpllTJ/KtWyirHEtMxuATc9UTnRhGPVU9fiCjmHKuuTyMgsYCuX2TWWHrAh
UewyLnNTp4l6ErVeqRy7jh8nJTKygUcWy8hGHlnE5a7gFMrqLRakAObL/lZe
KVdGtvPIHC5PBSdLVu/gkUEZuY1Hoh2xGyddVu9WIZdB1oV4tIjEdNYQltPo
jZe13RY33v428FyOh28ze8cKgjqxQlrNASO1Msg63jhRRERm7BA0m8K+C0kU
x7Z9ySJOBuW+y0CiMiyGEaqH1hC+iY22jjR/brQmGuCozqsaLKKqDUnmNAG/
pydHHMeb5kfd60yaKhyv64rV4KDtcTbsSRbpRz3OnHrgZ9cASebUAX9uMjmO
nvSjHgL+vDXCqQX+fE8cee6OmIcrbu+zwcWTMDqYcavAKH90ROX2LkenWBRR
PJVjskWn7Kg+u9VspIPa0a0tqoFftSN06yukl0FvhVuLInZhAjhVwI8OGhPG
cdQItL9md38pwKkA/uI1wkFf2db75Th6Mq7qCk458KMvliOU5bB8J2qT+EgY
PeK2bGE8BxgFtkFxxSVkEOBR+UXfM7x+ikn7Zx4BHV9t4NIVk9FQaiVupOvY
1UeHaPTOa/YJzsoGRbZkt2kAJaf/Rthncw/aT8poFaFIcyNwoU+GIrnov8wI
0Ohle9tRpLyGslZOPxzkRzqpwkFjnj0pNzliROn/Pmu5n9E2EW3P0PBBC4j/
tthsxvIaznBoJkS1IRbbCsNbh1ayOGhRhRZfq8FBy1axvHUsMVmkH/U4c9C4
ZD8eJpmDtmtoi5YwjqMn/aijzS3aBK8GpwD40VFFqnDQsVYt7EkW6UddwUGH
c6E1zBGLE0/HfOhI1FjG+DuKQnpoieN2KIV00DyDD/zQegjVULcDP6SD6p3b
gR/SKYuhlZFeOb0hbm2LVpDog0SsnLX5/we0tL8FeoPP\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {0.764329, -9.58879, \
0.0329782, 0.068909}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"Last", "[", "linctor1", "]"}], ",", "50"}], "]"}], 
     "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}], "&"}], "/@", 
   RowBox[{"Position", "[", 
    RowBox[{"nm", ",", "1"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "14.55288862401047`"}], ",", 
   RowBox[{"-", "14.622981173105822`"}], ",", 
   RowBox[{"-", "14.622981173907569`"}], ",", 
   RowBox[{"-", "48.80302685831628`"}], ",", 
   RowBox[{"-", "48.80302688407419`"}]}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0412\:0438\:0437\:0443\:0430\:043b\:0438\:0437\:0430\:0446\:0438\:044f\
", "Subsubsection"],

Cell[CellGroupData[{

Cell["\:041d\:043e\:043c\:0435\:0440\:0430 \:043c\:043e\:0434", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nm", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"NumMode", "[", 
     RowBox[{"GetEigenWaveM", "[", 
      RowBox[{"mat", ",", "5", ",", "5", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Kappa]", "\[Rule]", "0"}], ",", 
         RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
         RowBox[{"G", "\[Rule]", "4"}], ",", 
         RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
         RowBox[{"Re", "\[Rule]", "1"}]}], "}"}], ",", "#"}], "]"}], "]"}], 
    "&"}], "/@", 
   RowBox[{"Range", "[", "50", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "2", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", 
   ",", "2", ",", "2", ",", "0", ",", "3", ",", "3", ",", "2", ",", "2", ",", 
   "0", ",", "1", ",", "1", ",", "4", ",", "4", ",", "3", ",", "3", ",", "5", 
   ",", "5", ",", "4", ",", "4", ",", "1", ",", "1", ",", "2", ",", "2", ",", 
   "0", ",", "6", ",", "6", ",", "5", ",", "5", ",", "7", ",", "7", ",", "3", 
   ",", "3", ",", "6", ",", "6", ",", "2", ",", "2", ",", "0", ",", "8", ",", 
   "8", ",", "7", ",", "7", ",", "1", ",", "1"}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False]
}, Open  ]]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v\[Zeta]si", ",", "\[Psi]si"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", "\[Phi]"}], "}"}], ",", "#"}], "]"}], "&"}], "/@",
     
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{"Re", ",", "ew", ",", 
        RowBox[{"{", "3", "}"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"\[Phi]", "\[Element]", "Reals"}], "\[And]", 
       RowBox[{"\[Rho]", ">", "0"}]}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.398664187101*^9, 3.398664227545*^9}, {
  3.4059402495889997`*^9, 3.4059402497650003`*^9}}],

Cell[CellGroupData[{

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \
\:043e\:0442 \:0440\:0430\:0434\:0438\:0443\:0441\:0430", "Text"],

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"v\[Zeta]si", "[", 
    RowBox[{"r", ",", "0.4"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Psi]si", "[", 
    RowBox[{"r", ",", "0.4"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.398664384451*^9, 3.398664389709*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \
\:043e\:0442 \:0443\:0433\:043b\:0430", "Text"],

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"v\[Zeta]si", "[", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", "\[Phi]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Psi]si", "[", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", "\[Phi]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.405940278135*^9, 3.405940279885*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0414\:0432\:0443\:043c\:0435\:0440\:043d\:044b\:0435 \:043a\:0430\
\:0440\:0442\:0438\:043d\:043a\:0438 - Density", "Text"],

Cell[BoxData[{
 RowBox[{"g1", "=", 
  RowBox[{"PolarDensityPlot", "[", 
   RowBox[{
    RowBox[{"v\[Zeta]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", "f", "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "30"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"g2", "=", 
  RowBox[{"PolarDensityPlot", "[", 
   RowBox[{
    RowBox[{"\[Psi]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", "f", "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "30"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.3914128321798*^9, 3.3914128333608*^9}, {
  3.405941189082*^9, 3.405941227189*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0414\:0432\:0443\:043c\:0435\:0440\:043d\:044b\:0435 \:043a\:0430\
\:0440\:0442\:0438\:043d\:043a\:0438 - Contour", "Text"],

Cell[BoxData[{
 RowBox[{"g3", "=", 
  RowBox[{"PolarContourPlot", "[", 
   RowBox[{
    RowBox[{"v\[Zeta]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", "f", "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
    RowBox[{"Contours", "\[Rule]", "30"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"g4", "=", 
  RowBox[{"PolarContourPlot", "[", 
   RowBox[{
    RowBox[{"\[Psi]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", "f", "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
    RowBox[{"Contours", "\[Rule]", "30"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.3914128384547997`*^9, 3.3914128393308*^9}, {
  3.405941257781*^9, 3.405941274067*^9}}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:0421\:043f\:0435\:043a\:0442\:0440 \:043d\:0430 \:043a\:043e\:043c\:043f\
\:043b\:0435\:043a\:0441\:043d\:043e\:0439 \:043f\:043b\:043e\:0441\:043a\
\:043e\:0441\:0442\:0438\
\>", "Subsection",
 CellChangeTimes->{{3.403841185887*^9, 3.403841187376*^9}, {3.405939184942*^9,
   3.405939194337*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"incrs", "=", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"GetIncrementsM", "[", 
         RowBox[{"mat", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Kappa]", "\[Rule]", "\[Kappa]1"}], ",", 
            RowBox[{"\[Omega]", "\[Rule]", "\[Omega]1"}], ",", 
            RowBox[{"G", "\[Rule]", "4"}], ",", 
            RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
            RowBox[{"Re", "\[Rule]", "Re1"}]}], "}"}]}], "]"}], "//", "N"}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", "#1", "]"}], ">", 
         RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{"Max", "[", 
        RowBox[{"Re", "/@", "incrs"}], "]"}], "]"}], ";"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", "0.04", "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Re", "[", "#", "]"}], ",", 
              RowBox[{"Im", "[", "#", "]"}]}], "}"}], "]"}], "&"}], "/@", 
          "incrs"}]}], "}"}], "]"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "Automatic"}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"\[Kappa]1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Re1", ",", "1", ",", "1000"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Omega]1", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.405938508762*^9, 3.405938550267*^9}, {3.405938594012*^9,
   3.405938642612*^9}, {3.405938702244*^9, 3.405938759939*^9}, {
  3.405938795005*^9, 3.4059388401289997`*^9}, {3.405939166532*^9, 
  3.405939176097*^9}, {3.405939206744*^9, 3.405939210668*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`Re1$$ = 194., $CellContext`\[Kappa]1$$ = 
    0.362, $CellContext`\[Omega]1$$ = -0.6199999999999999, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Kappa]1$$], 0, 1}, {
      Hold[$CellContext`Re1$$], 1, 1000}, {{
       Hold[$CellContext`\[Omega]1$$], 0}, -2, 2}}, Typeset`size$$ = {
    360., {177., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Kappa]1$1141$$ = 
    0, $CellContext`Re1$1142$$ = 0, $CellContext`\[Omega]1$1143$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`Re1$$ = 1, $CellContext`\[Kappa]1$$ = 
        0, $CellContext`\[Omega]1$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`\[Kappa]1$$, $CellContext`\[Kappa]1$1141$$, 0], 
        Hold[$CellContext`Re1$$, $CellContext`Re1$1142$$, 0], 
        Hold[$CellContext`\[Omega]1$$, $CellContext`\[Omega]1$1143$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`incrs = Sort[
          N[
           $CellContext`GetIncrementsM[$CellContext`mat, {$CellContext`\
\[Kappa] -> $CellContext`\[Kappa]1$$, $CellContext`\[Omega] -> $CellContext`\
\[Omega]1$$, $CellContext`G -> 4, $CellContext`\[Epsilon] -> 0, 
             Re -> $CellContext`Re1$$}]], Re[#] > Re[#2]& ]; Show[
         Graphics[{
           PointSize[0.04], 
           Map[Point[{
              Re[#], 
              Im[#]}]& , $CellContext`incrs]}], Axes -> True, 
         PlotRange -> {Automatic, Automatic}]), 
      "Specifications" :> {{$CellContext`\[Kappa]1$$, 0, 
         1}, {$CellContext`Re1$$, 1, 
         1000}, {{$CellContext`\[Omega]1$$, 0}, -2, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {246., 251.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.405938551059*^9, {3.405938594939*^9, 3.405938642959*^9}, {
   3.4059387049630003`*^9, 3.405938730385*^9}, {3.405938817241*^9, 
   3.405938840792*^9}, {3.40593921275*^9, 3.405939233182*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \
\:043e\:0442 Re", "Subsection",
 CellChangeTimes->{{3.405938365292*^9, 3.4059383655769997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"maxLogRe", "=", "2"}], ";"}]], "Input",
 CellChangeTimes->{{3.405941978415*^9, 3.405941983474*^9}, {3.405942090034*^9,
   3.405942090667*^9}, {3.405942219318*^9, 3.405942219549*^9}}],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"lincRe", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"GetIncrementsM", "[", 
        RowBox[{"mat", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Kappa]", "\[Rule]", "0.5"}], ",", 
           RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
           RowBox[{"G", "\[Rule]", "4"}], ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
           RowBox[{"Re", "\[Rule]", 
            SuperscriptBox["10", "logRe"]}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"logRe", ",", "0", ",", "maxLogRe", ",", "0.1"}], "}"}]}], 
      "]"}]}], ";"}], ",", "logRe"}], "]"}]], "Input",
 CellChangeTimes->{{3.4059416004960003`*^9, 3.4059416523529997`*^9}, {
   3.405941887079*^9, 3.405941892104*^9}, 3.405941955633*^9, 
   3.405941993424*^9, 3.405942028795*^9, 3.405942062778*^9, 3.405942204176*^9,
    3.405942293234*^9}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "maxLogRe", ",", "0.1"}], "]"}], ",", 
      RowBox[{"Log", "[", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", "lincRe", "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "]"}], "]"}]}], "}"}],
     "]"}], "//", "Re"}], "]"}]], "Input",
 CellChangeTimes->{
  3.3914128555657997`*^9, {3.405941717383*^9, 3.405941794566*^9}, 
   3.4059418739820004`*^9, 3.4059419967720003`*^9}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "maxLogRe", ",", "0.1"}], "]"}], ",", "#"}], 
          "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Log", "[", 
          RowBox[{"Abs", "[", 
           RowBox[{"Re", "[", "lincRe", "]"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.3914128525008*^9, {3.405941823874*^9, 3.40594186209*^9}, 
   3.4059420015690002`*^9}],

Cell[CellGroupData[{

Cell["\<\
\:0418\:043d\:043a\:0440\:0435\:043c\:0435\:043d\:0442\:044b Log[10, -incr] \
\:043e\:0442 Log[10, Re] \
\>", "Subsubsection",
 CellChangeTimes->{{3.405942115705*^9, 3.405942140541*^9}, {3.405942353986*^9,
   3.405942358684*^9}}],

Cell[CellGroupData[{

Cell["\[Kappa] = 0.5", "Text",
 CellChangeTimes->{{3.405942012803*^9, 3.405942017723*^9}, 3.405942170468*^9, 
   3.405942234717*^9, 3.405942342101*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   GraphicsBox[{{}, 
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyV23k0VVHbAHDzPM9jUqQkEhKpS5rIFNKg0qQkJSGUMkeDIRpUQqEyS2TM
zRAZIpGpzEKmyDx/77u+PI97/vnWt/+566x77r5r/dbe59nPs/eRPGVrbElD
RUU1QEdF9d/PpXYh7k3V9kohzadP/tuySAuiw5xXOwT/XZeSwmPSzyROCGgq
K/231ZCEWQsau1gE/n3fSDrj6OAhJsGv+b+9tZF+pq5xNlXi+3d/JynsSVPv
vT28mufO/rd1k7j8OniKzXn+/f43KSrI1oDqMrfml4r/tgGSyqG3TBreXP/6
GyY9GYvQHt3I+e/+EZJWgU6H3WH2f/2Pkg5cufD6jwfrv9+PkQJjItyOxjH/
+78JktfeYLLfN8Z//U2RPnMMy05N0//rb5q0NjCuIECC7l9/s6T9g3y0mlo0
//qbI5l0/2YjH6X6198CqaiT3qe1c470j08ziqF3Ou/B0NI1lRXBc5zgGUbw
FCJ4niJ41hM8nxE8OQme4QTPtQTP2wTP4nxKzx0ET0+CpxvB8wnBU4zguYng
yUjwfEzwLCd4jlc9plPTRc9ZgxMS9sfRM5tONy7pCnq2hNFuHrjFD57P2M67
yj3jA89ndEznLyfzgufqN5LiWYU84LnLuq6esYEbPJVu73c/NsAFnta3CiWz
qNCzLqaYQ0aWAzy3HN+i8MqYDTyPPpzyNb3GAp6/ybs22UQwgWfldoYMk1wG
8Cxpuy82SaYDz7mrQoLeVjTgeSJ40qjelQo8n5glinO1zpGWPLPLzIYfKU+B
Z2f4Mem/Ch3g2ecp2T6jg55B0c77Ni7zlEmyorFc5lmXs+ln6DLPzawt78uf
oqe1qen1+ST03FG1mkd+medRCXeFY/XoefnFs+Tb/ej5K903yGKREzx/1OSd
9pNBz1PvXu80NETPofSZuxxX0ZNN7Zzaiqfo+VJfmM01Az07Wyk9Zwiexwie
TgTPLILnAsHzS9YfvoYsQfDsPTjmzlMpAJ5OerHeBh384GlfPkm+N8EHnoMz
fxa+sKBnaEmZJq8Eeroeb35/TAk9jfPMniftQc9N1149YTiKnvwXPDxK2jjA
U6iGk8aZmR08N43kd/xQZAVPn8ycKfnDzOC50Pvk27YbjOBZ0K+gsPYxPXg+
y+YRCU+kBU+lONGAbZroqZZGY/pFFz1l+478ar2EnicL99w0ERsDT47KoL42
W5zv4n6dzMHLPMWdP+4s+YKebwNPZcy2o2fLjW2bFJZ5bjj/yf/kMk+/W3aJ
wSvQ86D5R7uCTei5inbjteHd6BnfoHdG1Bw95xv9zG+0oOfCpvuCTxnQU+qR
lpe2PHp6MN+qe2+KntE2wVlzTuj5aNHy2rNg9ByPvsBu+wo9VxM8F95Req4m
eOoRPEUJntlk067qu+i58fWnw0yR6PlL2Ml2exp6psTWDtt/Rk/Bq2mBb37y
gid5ekPzj2Ee8CStpNVlp0fPLaEZOzWE0bNUsD3VagN66mi2f1vrhZ7VvxXC
AuLZwFPTdLRbuZYFPBWSC1MZqdAzi6XNe+VG9NzIqyg5Z42eEQRPzlMzK7mU
qcEzbRPN+tST86QlT4OBow7ftKbBk+XxeOaVpknw9Hk/Umh/vw88owmecgTP
rwTPGIInN8Ezj+CpTvDcTPC8Q/BUI3iWEjy3EDzZD0hfM5hlAk/lsqjGjlXo
Kai33X6vAXpWtOaYyF5DT+su4zl/NvSMInhu/z887xA8F+j1ZBpF0FNHX6mE
VwE9WSKfiBlpo+fmX2HfAw6i57hrbdXXC+ipK2UqLuiOnid71i2cesANni11
K+PS33CBp4mPDJvENU7wLMgdc/nxkh08gztSJHzLWcHzRLzNu6+jzOCp7SZ8
pFIEPdkd2g0GtjGAJ8dKqqm4A3TgqUf9M0PEnAY8kzTLTPV+UYFnPu13Hs3S
OfCcqj776kvtJHh2qbWseM4xguul7eZzVximwfOHd6DcnWWe7mFHjMny6Kk9
tzpqdAd6KoRG/l6zzNPpecfkoWWeLT+94m67oSdbPH9DZgh6BvcGMnW/Rs+d
sZdlJZzRM5j7q82JSPTsN7wyffkzegobWKfN/kHPfPXn7eIC6DkZ/F3o5hb0
FIwtXLXKED11CJ6GPActuA+jZx7B8w/BU1Cd0jOP4JnCeVFjdlQAPP8Kan3a
xISe5GMXMq3F0HOwO+Re1Eb05Bx+s6VlJ3pGq3Q9FjuMnjayl+tPXkTP3Mt9
Nake6BmczeS6QQ499+jweigeQE9VCae0RzfRc2SjdM3zN+hZ9cr8Un4NI3g+
qNiqKkCNngJxKoFHVdDzSHonu/ph9DwQWCpW6bpIWvJMGi3K32iFnrTqmrI9
gjjfvxX7OlkI9IMnFcOWV2wrB8AzT2XqffAyz9e3N8V+ZkRPPc1tBfOi6JmR
2bFPcZmn36LVwMllnvzVNRv9D6Hnh51XGZNt0HM248iefHf0lBu2GXdch56J
DNXZ4vvRM92+IXm/M3qK5j6MqA1HT5KMtvXeIvSsT/jTw9NLD54Hrn/w6WdC
z2OPBDfnSaDnQYLnS4LnhBqlZxzBs4ie0nNViSC9z3n0XHXBLJB8gx88s9w8
qmbv84Hn4vnA6+qveMGT5pz5DddsHvC8oug6UVDJDZ7UR8w2c3Zygact7emJ
oiFO8HRd47bimiAHeHLRbdVQ1WQDz309Ba9brVjAs8RV6rzwfSbwfKRP7fHr
P+v1Jc/kmTKru0104MnnSDOo+JcGPDP3/TmWy0gNnrWvfGyiPNDz98aPj/hO
z4Dn3rj5ubO+E+DpttouJr8a5/tg+t2Ril/9GI+utjbLL/Os2TeqeGaZ58jk
trzQZZ4J9A56FTHoGT3oE7+QhZ5ewrmpCss8GSa+yFt0oGdgUNMK4UH0FDeo
/36BHz25rZ1947ahp+EFkZBUS/SMCCDVSvmj5/hvHRbqd+jpO+3Fal+Lni8U
M4vDf6Hn999vTy1OU4HnJYJnP8GTRPBMIXiKvaf0XJTUVHPZh54SVJtPpVig
p97hIx977NGz/bZqqoQfetIv2gkeDkPPlHSGsocp6Dk2GSPTWISeTae/5Bql
oufv9xcd+X+wg2eX0u6f/HToOR5Q/cN+A3q2b+aNszqIniKDdikWnuhpdj3P
yj4ZPd0Inl8JnjaLP6Pj7ObBM1WiOO1izDR4bntkO3jx4yh4HrifQGXA+Bc8
wxdrfpeVwDWVaMb4xLwuejJTL1IrL/M84D65/fwyz1YGl4kwX/RsZWrJ/fIM
PdM09/6cSkbPsOxDEcLLPK9offfen4KewdXn/FQb0PMv7Wmp4kVW8HSO5Syv
WIOedTPRK+f10POvG9O2Wjv0LJM0cbd9gJ5CvKN1R9+hJ7kmXkEpFz31Zig9
bQmenQ8pPW0Jnk8JniIalQyijOjpdVhNfL8oevbt6gq7pYCe8T2Dijna6Kn7
vPPY0EH0DFufYCVhg57t750O6rujZ/59U8ahtei55tsTNdX96PmgaKzA2QU9
+fbQGhS+YAbPkEdCK/aXMYKnkfX1gi+j9OB5cvv9k44y6LnCXdU45zR6fiB4
Biv7d/gOzIHnZS8RfbOeSfDkqDogHp6Lnmxyhw0yktBz5xh9UI0HetISPG8Q
PLsJnlcJnjoET1eCZy7BM5HgKU3wDCR4MhE8/Qme2gTPqF8p5Y+E0HO1wrrX
gtromcu8wc/CAT2DCJ5HCZ6FlZSe9ARPWYInVftRbe9IfvDcZqQ8mJPGB54t
Z5y6Rz/zgqd2lMxhuWYe8LwaJ+NhOcINngFOiQkR9OipfGCd/A/hZePTM1N7
41EO8AyL6XeK92YDT3XOhZ6ViSzgybBhtPT6dybw/FF7IPv2PAN4Vjw89vWD
FHq2jhXt2qtDC57iNS7tM2eowTNzsdEwQ3SRtOS58iajgI4oem41eX1a+hR6
hub5tRbLjYBnb/Z38g7ZcfA8LP+mUMv+F3gya5FWai/znHSV+XFtmSdtbs6f
1GWepPFTAf0/0XPziYx5qWWea3fphFss83x07EXHs2Wedxjvbk8zR89ur4Fi
pWWeF/gODyUnoKdPz/tDXMs8uW+67adb5immwq+csBo9u70ufQvZjZ7N2UVp
J0+jZyrBU5DgKU3wfEzwbCV4Xid43lW9z8EaiJ5fnPc+1YpCTxvfE9NOGegZ
TT+ol1SOnl7W24V/taLnK5ffX8THuMDTP57mrjkTeho/LxDfo4aeJ9udP06f
RE/h+6sX2u6gp2Gr4j2BNPQ0/k0aKWhGT8Vs/Z5NTOh51k636ZYyetYTPG2i
8ou1GhfAM8Dyhqi73wx4iti6jYSGoecU1RHDaOsx8CTfixRoKuoBz42b53a/
6+gCz3IdBeGrAej5aOPYyYSX6Nn3dIi+4z16frMRPS+wzJPLJFR77zLPwcyO
QYdR9GyZYjN9zIie6dT5Egaq6Gnm5dKgYIGeqhovTVNuoecRzVHOx4noeevN
2VzPGvTk26qnlD9JB56zawTX0AijZ0CSoaWnCnqqmMxu2RyCnt4Ez4lLlJ5D
BM9UgicnwZNtNPzdRRP07LqhGx19Dj31MiyHf1xHT+VMg6t8QehpJ/n1mFE0
ek5rfpR6kImegqyPnCufcIKni2Xf3OsCdvB04R/z/9bPCp51upZDN/nRkyv1
vS6tJnqezRqRWriAniWbQxrCn6LnRFDB3JZKGvCc8y059JAFPRUIng1iLCVP
zdHT4B51tI/bOHiq5NqGOoRgPHLIm2fsl4P6nGbZ7FRpohCs76li84Knm4zR
c9dQVAH3Mk+zrge9e5Z57rRZZ+UaiJ67vlR3J0Sh52dm79jaDPSUjOEVb3iM
nu8zm6qryegZ4HMr+XoPesrGzqQmc6BnqKodzRYV9EyXOf6t6gh6csuwOKm4
oefd46cvW79ETws1T7aNn6jAsylWgG9H6Tx4hig36JpnTYPnLoLnGoLnBYJn
KcHzhcmNmqRMPvA0OZ5e0lXBC57r5nQlRdp5wDNOgiXKYJwbPK2c/gh5MqMn
w0hkeJo4eh4yt4qoPM0BnpWGInnq99jAk6O5IiUzjQU8t9yV1DBtZgLP6Xu8
N/kZGDHf/JR1ZF6eHvc3x590TRykBU9Ns4CsOHdq8DTqDvBabbRIWvI8HuAa
PPZhFjy/tRUkfUqbAs98hwiL1Znoef7wdMtLi2HwNP4QxDboPwyexWfELDkc
Yf5THT/XZTeRgZ7RCZWDcss8737/PXGqDT2P5pjLho6h59jmj9nlTOjp+IKr
f1YMPdsulnbpnELPlfeu7L55Bz1NEutcr6WiZ4TB7p2CTeh52DJoWogaPZ/4
P8gVkkHPhEMXJQ7tQ099fk6XOzbomSQjmDcmgp5ntaraL8ejJ5ngaci2q0ds
zxh46hI89QmevgTPAXMuM1s/9PyUYtAWE4ae7fWOD3+moGdiXKce3yf0ZHCL
3WfYyAWeBXQ0CtI/OMGThdUn8gstekb3VKcmy6Gn51NRzYED6GkwM8mU6Yae
IiIuWrZxDOCZ02HGmlVHB57XlJ4WVtKjZ5FmgsOcGnoaZzK3nuteAM+WZPva
OU70fBNUOmJ4ZwI821gpPYsl5WNom3C9VKdnK9FGgvqc5kqPM8lHnzeCp8bV
UwMffNFzVL+gcOwZen7xSByTXeapwCp8xqIIPYenI60CG9Bzz+bpZutG9Mxt
St0VRI2eN/3NOxzXoafZQeumGSP09NWxG/rjhJ7KomKhnOHoWRresWOmAD3j
bX0EtbtpwHOygds5ixE9VzWoS5ON0PO5G+/grO8MeIYTPLWPT3e+KUbP3ccZ
nm9QQc9qgmeVO6WnCtfVpzbC6Hm93vjSiw3ouTs/aLBWCz1nCmxMGMzQ02Jf
yQVla/QctNFMzp7jAM99PXaX5qTYwfOeg9olaX1W8PTuTxBb58gMng3xpFMT
YYzgKWd2ld2liB48q21y1F/004Ln+c+1k1d50PNhzNwXrz1U4ClRrBaSSj8P
nltuyfSzPJ4GzymtPe53FsfBk3HndZkTAei5g+B58FZW8CbdQfAcdQ28X1nd
C56yBM+COkpPRYLnH4KnGcHzN8FTmeDpSPC8SfD8TvCUInh+JXg6l1B6SvrL
HMyURc8QD0O2eIc58HSoU2DZZTQFnk4EzzFtSs+31uQ51ZR+8FQmeI4QPH/7
sWaw5fGCp5VdEr32Nx7w/GnI3ejczQ2eAzflfyXOcIFn/ged+HYO9HQIvxu1
Zjd6kk++jfS8xAaez4RsdlY/YgHPgSOKqbRkJvCUDGhPmuhmAM+NCoYXqDnR
s4XEPpG9GT2dtEoXvx+jBk/bMwPz04yLpCVP2nk/nRGrWfA0Ors7M4UFPevD
n4gJDaHno9EMpofXR8DzLsHTTJfGr2ldE3jSfTAhfZZvBs+66pzo0A/o6RXP
YF5VjZ6eZdfq6Jd5XlGNnti6zJMcYXTXbpmnSYTdS71d6Fm+XmP03UX0NKDZ
3ii0zDPlK5WRWx56ShA8e+UpPWsJntYEz4sEz7fbGgXrTdBzH8Gz0+vQD+rE
MYzvBE/x1HMe39hwvl8neAoQPGn63jVeiETP87TZGi/T0PP2Gt/4hs/o2RJ5
rpWzGT3Z1QIqQzo4wfP6ovp6QVb0DKX2T8pRQk8XOyf9Z0fRs9ZVULTRBz03
Z0z1xCWjp7pha6JNEx14Uiva/cxnQM93t9nvVqmgp6pP5Unvbwvgefj5YugV
BfRsrboysilnEjyLCJ7S2YoLyr7D4On9xYPjbgKOz4ltowNFwlD/0Gy+6bRb
LQ3Pgz2IUzgdEIGe5zj4+4veoeephxYxMyXouXZFirX8T/RUKdxHn9OGnmUa
kSp0zOhJrz0SuVoRPVtuRhvPHkLPwkkt19Pu6BlgWt2/6jV6qkrcmO2oQM8Z
w74BqREa8FSLtx3X5UXPbZuEb4WeRc8XLVHToh9mwNMu0kSj7gR6rpEZ173q
PgqeLATPugpKzwGC50OC54af0iInNNDzw98N1I+N0HNfwu/8qjPoOd68dTWH
C3pGTzyKTBNBT1kWkpuXNjt46vBesk+wYQXPi/oirCceMYPnXuX37v0fGcEz
KE6+uHqAHjxTeVcKTYigp/TASfY/euh5IkztS6oPFXhO7afqefdwHjx3xDj4
0JDQU1PWaLA0cAI8t9BvFhYO/QuezpNJ5EyLP+CpaqDwTM14ADyLB1UfMIxB
/NHsUdDJN7//GjxXp36Uv7wVPfc2Ju55bYie2rXbLvw8jZ4+9r3lrM7oeUqw
zvuIEHrqThyhP6eJnqf7DT6JWKFnfaXQ1N5A9Dx4kdyUlI6ea0ObbH81oWd/
HvMB4wVa8CxRajkoLIGe1E2tdnwa6JlruiH8+us58LwjYj6rWjQFnhztMVVW
/1mvL3kuJivvzTAfAU9ZgmemPqWnqvtN9YERrC+VEjyfi/AU+0C9KIuUM+Eu
lRPNDZ4qfFklf6BeVENSf6tyYc9TTvBM2ZtlmFzADp7Rrm+TxfpZwXP9yPvg
57ws4ClzUT59nwYTeF68t/W+jiUD5kcGDFqFAXTgybNb/OV8Jg14MuxI7rPt
ogLPNcLU9JWrF0hLnt/INyzavGfAk2re9LxlywR4vm2j9BRdaaZhSIeebQ9U
/wao9oGnaOOBkkdKHeApQfC84n79sY1KO3iy8M6xng1Ez0Er6c6wKPRkel+w
tyYDPc+sXeTmDkXPmJVVqY4f0VNF0zu5vBc9f8pVdixyoed0sUj18Bb0DInZ
8uLyCfTcUNngpu2LnmqkknTuRPQ8pum081A1elozNwsx9MyDp1NIpOyu9eg5
PUfpmbwxfH/rwiiul1ZQeo4QPD/UU3rGbTWOMbWDeqcmD8FTJMzrM5MGet65
Oyyz3Qg9Z7l3bHA8g5576boNLUc4wPNyWYEsrQh6ugZ+EevdgZ7p6m0hWjbM
4Glq2X5v3yNG8KRnTIu2zKcHz1O9IW8Uh2jBky/3DMsncfQsWCSp0BujpwLz
iWthYujpuWXEmD9pGjyLdrU4t4ui5wUHHfpW7r/gubtOpbP+aT/O9x67QZkr
PeBpc7LHSmoSPV0InoGeh3csrsB4pJFXTN+kjp5tb7qnuQ3RU/6dS8me0+gp
kySZPTCEngv28Z+kBNHz2kbyax4SejYYuen7nUXP+DuHr+j6o+d+BZm5hVT0
VKLO+CRYj56vH670zpqiBk+lxL+KzwTQcx2nDHfSsTnwDEuIMEp3nQLPcGXm
pALHMfC0mLlJjt4wDJ7lXyk9xQmeOy0oPROflu1sPvAZPN+vKr7rbdRLXvIs
GrIOGT7GDZ7KSikekle4wLPqmf3D52yc4Hlu6pXngDI7eCYqby1Ye4wVPOmk
h+p2+zCD51W5rESlREbMj86Gfa+spQfPO+oC61tnacHTcbFjZEaSBjzv+tCc
NNpNBZ6spb5XV1cu7Z+Nkry8/dWmFqbAMyVhddYbjXHwNJFaoyau/xc8zQme
5McrctZM/cb6vNKuiLShLvC8k3/0aearb+D54BmlZwTBs5DgqfT/9EwgeAZJ
UXo6EjyfEjz9CJ4O/09PaoLnJoIn2+QTuoj4EfC0JB85wDE6AJ65BM/mTZSe
cQRPvq9iIScYa8BTfYuTd+N0DnjO82saRu9Ez5G1bHQ/DqHnENWlsVVNHOBJ
bRrMH0iDnq5dXH3Tsui56/546CkT9Pw6ejWz5Dp6PrenZ5aJRs8T46IPblSg
p6f5d/eyMWrwjJ6QqBcXR8/7no5pfnfRk1ZKSJ63FT1F51XpN9Cg59q3EUqJ
AeipOi/GQJPfD55lhaG2Qhld6KnTuC6isA48b/FXU1nu/AGeXlWUnokGlJ4N
sv3937XRU0v+GR3bMs9YMTtOrwb0XPyhqz1AhZ6TedqvjNehZ0qbfm7afvR8
e7HyMNc19Fworjl06iV6xpoM/IwpQ09Ti7wj1X/Rs84382eZCHrWHK74+cob
PedeVLxWq0FPp3FKT2aeqIeH1qJnhxT3eY6zv8FzPmdl4oaGdvB8TPBUIXiK
aq5qUT7RvuSn6cpVH7orBfJ5Kv6k/aNH2NGTuYD7XqAkegqJML67ewE9xXew
/WF4wAaeocJiKvG5LODp4b6mIuYXE3hWX35cuZETPbWu6K97rIaedPWWT/Ut
0XPfR7NSwRD0VOSLoPHwWzp/MEISs1cp7BmfBU+tmHdKLg7oGXtm8Gd28Rh4
enHw3p8wHgZPA4LnJMHzfU6Hi8PHNvDM63OIcW1sAU9DgqchwbNvfHVgASt6
0n+03TojgZ7Dj4qlj1uhZ+5wV0p6EHo+WB9X3JKJntV0rvtj29Cz6s4nw3pG
9OQUqKERlkfPA/SytuPG6Ckg0esf54ien8+y5DHKomcCifqy5nH0tNraPZbm
OQmexiXvN+1OHwVPT4Ln/uM+ldS0feBZ2dd7ICqlGTxjz8SJnE2uxfzIz9zf
w7wUPG+9DFPbXgD5kKbUN8eL7z4WgKeldz81sxoXeO6OO1Pm94QDPMnHmMRn
89nA89iq5/22fSzgubjXtaKXhxk8JZ5vdbbaygief+PCjqhZ0YPnxoIwE7eH
tOC5xfYE78lP1OAZmSDTtH90af9smBQTrZ8cZD0HngcMV5vpzk6BZ4a4rdRw
7jh46j8dchYf+wueDbq1B9erDYHnQTFzlztvOsHThOBJa0bp+diH0nNDMKVn
SCWlp/M51T8cW9CzOZbS053gKU/w/EHwrA6j9OyU1/wVb4GejteHOcO90HNO
hcV6Uwx6joVvTYvwQc+UeevCsnez4MkwW97lXj4Jnr0l/C97/jMelzx/qcc9
O9k2BJ6nBMuzetp7wVNIhNLzWeOVv/5SreA5x8vR3pNfBp7hDeMz+6YbyPC+
TAzbuuK6T+B5s+HrzGPOTxCPLkdbBs1t4gTP7hZP6qPm7OC51yazJ8OLFTxT
TkRlCyQwg+dI5XbdwFpG8HSI8PY8OE8Pnj7Nyes+rqEDz5psPpdV+2nAk0Hb
4usEvH86QPK4WbOf22wePG/ollfYZ02DZznzrfHfayfA08mS/Zp5wl/wnLy3
r9cndhA8dwU3bzy7tgc8YxvmPJ+5doDnCYLnL/e+o8V3PoPneoJnThSl54Ef
lJ4tniPlx+XRc6si9blaM/S0fOCspeOGnmJ7ay+lvUbP5MBKw9kq9CxqC5Lq
mETP9ZLddpwS6GlffM9XfBd6+ritivc6j56mkbLkMgH0DD1cqpZnjJ4HTicY
FnqOgyenheiZ+lcj4JlN8FxL8HxB8LT/uzaanboWPB86UXoaFDVseDvyHuZ7
PYPvD+l5f4hHeVoc3aWJXeBpPcxZYpDADp6GR8O0ybWs4Lm+PIhfcZ4ZPAXC
JZljpJnAs1wmwErMgAE8uTrZDJ9cpQNPKv84AadoGvCcz4tNWP+dCjzzP3mu
leNdqg8NkBSZDHQv354Bz45+iZFB/kkcn4e4/btKRsGz0nA+5GLOMHjm/WRx
j87vA08B9tmHOhXt4Cn5M3KataYUPG3K3/o2ekSCZ7JaOX3FxgLwTF8t1x/K
FgKeTSdcHjoVNYNntialJzXBM9Oc0rO5jNKz4zmlJy/Bs6KD0vPTsazCwifo
Wd3Melg6Gz0vr5l6+z5xHjwPhQWMXGucBk9zxzOOtoPj4Nnt1njJrGYEPC91
dbOE6vaBp3SvWrJydDt47huvcvrxpg48h5ooPS/rp1B4npjMs9orUENe8rw5
sJ7CU+o4paerYOizFb214CnhLtMWY84KnhUP16cJeDODp8BtxVG/BEbwZDb6
YzAP+WIjqZScme0wTwuel85QOw9L04BnaWiD5hUDKvCMU9bXmBlcite/SX9Z
HicqkqbB8/7CX96coHHw9Kea27G6cwQ87zZldfy9MACebs5CTSKfu8GTjej5
h9Lz5LHu4vtu+eDpLGm1L8I/nbzkqTJN6dl7R9lRlqEDnp8Z8reYT0vngacD
wZM2Jt2s+SB6ltmG6Wq7o6dJZH1w9Bv0rP7FkrLwFT1Toxlm9KfRs7RCdq+/
JHq6dxYmp+ug57snt4VvdKLnyPvcLxpK6GmmeN0t0hM9w9uvJtF9Q0/fl2a1
RiboOZNiNlu55Rd4Nl24sSXJ8Cd4Ooj1yKe/rgTP8N2UnjVfKD0nakYjT1RW
g+fVu5SedMfd5HcxNoCn06VVH0azqsHTsVBlhflmFvCU2/yIt+I4E3g+fEob
ut2XATxvjBz0eZdMB549Rn9F5RpowDPo1k2+OCpq8DzLFbwl/uTS/lg3aY0Z
B8PNrzPg2ZIla92gOwmeZbHnMkZ/jILn/pu7tYRDhsGzwbB8+yh3P3gePezp
whbShfmRhlnRaq4m8Fz5pLUtQ7UIPL+oi8gNChWQlzyZxRvUXfIqwPNQPaWn
r6s51fayRvBkP0npuZLskc5pANdU2QWUniEqlJ4WTyg9DQmeDwieegTPTScN
ymm10TM5777yhCN6Uj9TjHEPmwBPmQcNz+Vi/4KnvR1HMw3zIHjWJcrrelR1
gueVicm5QY5q8HxgpUT95tcb8GzV+tR/60MBecnzpZlfzlqjavAkraD0fJPK
9vjYeB14nvWl9LzfJsBUIN0GnteC3Ugjz0bB88n7zNcT9+jBc6+OAKdjOi14
jt9g1Z1vpgbPKuFNMQ8ZqMCzIjSq6/7xpfMsbaSFdLFfpilL+UsnifnNsYUc
qE90k848UQmNsR0Bz+g5PcYR+QHw/CPo13j1/S/wvFq0qDT0tBU8fTqnu1N2
1YEn0zil56sjlJ55Ryg9XQ9Sej6Paldite8CT9PvoefDrAfAc/dK9XVtxcue
n3LMfTEyf8AzlOA59Y7SU20npWeLA6WnNS+lp8gDSk+9REpPjteUnmEHc3Y1
aaCnb9SeO+aufeBpLxpJO2XQAZ5FhhpDPmo14EnFc1v+xhV38pJnYu7oa1mX
VvKSJ/kmXcEe5x7ykudXdimn+4pD4Lm+oS7tHecIeAY/7A6+7jUMnnwEzxmC
p6o8pSdJha5PVb8bPH12OLV4b12KD1mku7Psc6qBS+dRSklujyd+G3ctnZ+o
IXFVkNmCty55NJJ8SawN++X6wXPo0mpBpYFO8FyxjmrnruuN4JlCe/OIb2ox
eJbfYC+25IwiL3mqHadzGymsJC95aoW0vd461kSG+ue1z0HOr9rBs/f2FIXn
Zi9Kz2EBSk+/NkpPkURKzys181nBiePgaaSsbiQ/PA2ewcpU6V/KFsHz1pWK
wp3W9B+XPI+slA4ulUHPH36b1Kec0NMqLTaV4TN6/nrhHbcgiJ5umbZhbVV9
4Bkfze3XbYueCtocfKkrG8Azxy9Wj7+kADzPS/CwVJimg6cK48fsJtpa8OxL
5cqd0G8HT4fCnJxpj17w5PHdW6506w94yiVmyCULjYLnDNncVX7FBHhyrb3i
bhY4BZ5su78m+xZPg+frekrPiwTPKYJn8D/P/wGldJ1d
       "]]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFWV1oHFUUnuzMzm52S6IWf1AqQQQfBEGhIEg2O5s1bZP+KCJipGioSvtg
G2IEH3y3iD67+an9of6A4Eug+iBa8EVB8UkovggFQVDaF0WbNrvOuef+nDlz
78wk2U0L07lzz5lzz/edn3tnc2hu8fhrb8wtnjg2N7ZvYW7++Iljb45NnVqI
p/whz/Nm4+uJMQ/GvXgo/5v1er0eCMVtVNx8FMUjuJo499Vbi5d6E+NL4qmc
q36z1Vzh6iHcAlAWEyV4b1iMYM7HFz1lDP4JQQUefXxMqsCVo6KtmMWJyvWZ
6XPGCnqAxpiJsgUp6gUJb7z064aA5Jxf/PXQMheY1yE0cP/l5aOfO6yW5MDX
iDQxnHdtXKC9vSCJSUgmkVDZCIedTuxc8GqJ6fh6++OLP4PvH37w/ndqDCoY
w1CVFsTvnQvnfwLR6nunLw8UaVkXXnWz+CoqHoAHZn574flP4PnfpydXMam8
EMYUGOhBUyiRICrr2UDDLAA9DcCuwHDZ4utYHYMzQmOncAucsXT/D99f/fbU
ybVXvrx0BWRqbHAK32lMk9hMV9Vz0Kq9IRz1dDsyLYxFt6qlTI+NcL0yRaOi
JiNWgfHvzz17ETRp5ER7QR3/15de/Azmrx+cPovEyXDzMKveTxvrqI7YQ2Ki
nuCW5dGPr7/6hfIIDHpIaJkuANdG1FiWMp/Oq+JKzMUz6+2WeA6JT4zTB9E7
ysG1g9PnYHwrmlgGqcO7uyHUsKmoUNPnazMHzgobreYS1/vzyKHzIPuv3Tpz
ox0JD7tRA7fPEvdXcPgARtRWY4qrP545fAFG65PRMpP5CQ+Qqxq1RRH+vX/q
jES/ApqhqeGbk81lk+l2Pu/FAqPWTYXUOU0fnX73Mki+mT+5xmUyk1KgaRJ0
m41ls1mYVFBz8dVB1QCGVCQxjMBtqqcrToIKKCizmaamsdTuSlAgRbq0PNyt
dTLLxgJYe6RTGHN7RK3Ej1ArgqJ4rChSr4NJAV8+34pw3KU4UdbpRuNKr0Pm
l6ieyiOlR9fKCnjFMueTJJDoTRLsTgWaEMa7hKjFWAS1SMcgA/QmEQxCOVdV
KNahxoCZqEHRy8So88RgJLmJEJVZz8p3W+Hdl9VqaBHfaLdWRWtoNjoId1zl
OgZUjjfkWAW+LOOoYEg1LKbMWrCFN8ztPDaQDj7u5E2KNh6KieMVya0wlgxA
HjcqS4HPlaWCmwkm4Hns6FeEqipVp9hVOqNaJW60K67QF4AYcFk+Y9kpUUn0
syJpgF2hzjdkqkNtkVKup3KdgeymvS/b9PpPhgAV6PNiCY/JWRgVD/zUT1uf
g4dKIugZuLdQA5viBLdVkdx/HZ4RJxfVBvnXhDn/hbT3U8TVrJJK1Y6LD0es
+1wUWebgBN35Z19bnJU2oomO3t4JP7bPNvkxQE8CMkuyOkdAD+OkU6SKxdEp
shD2L4FCmzn2IaiSQXFUQ+wJjqQabkV+ZsaAkHMjnaylKshB1I7zpI8mdM+j
VTJMubHlT5GOXE58wCWrqeZMGsbTtjbUrRSd4IafBSg3u0gzTn/Js6MnXMWy
Jb3vZDC0zZ6y1X7jShfvDtKPS+YHjSrtMrZsGEyh9C9RcgtlNwIfwagLiDLq
Bl5mZHfmeLWthL+HYhyh33xF44anle34voWQVrgskbH35+2QNfpJV7BDDfoo
xJKSyr5emF+D0Fw5OvvpnjxsFY1NJKq1t+zgWaZqk1FAY/z8K397tnx1345d
1BWHh+lOkTylBnIXhbdkHFRRDTYOuVw/Ym/lvnZ1sFynqpb65j3qcK5LeBx0
IlCHHss9Z/eRNmzUrFqpN4/TRm1WLsaJ9XcoutpG1DAr77UvVQyIXsplPtGp
9xZPyNE8DCBzLvRkgYOdjdVdtlUTbLEN9alNLWRp/K7TyEQBwzWKgPccaqxF
jPmG95D+mEv1p0ic7H8qVL84C28OkNIRYT2CE7O2mzf0P9ReKbM=\
\>"]], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<lg Re\>\"", ",", "\"\<-lg(-\[Lambda])\>\""}], "}"}]}], ",", 
   
   RowBox[{"TextStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.405942313825*^9, {3.405989354414*^9, 3.405989406137*^9}, {
   3.4059894447279997`*^9, 3.405989451835*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Kappa] = 0.1", "Text",
 CellChangeTimes->{{3.405942012803*^9, 3.405942017723*^9}, 3.405942170468*^9, 
   3.405942234717*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF23k0Ve/3OPBrds0yVRJNkkpE0cCVyBiZh4oGDUQpUhIpUyhkaNCEUBkq
Q6SJkiEiIlPJPGXILPP3816/7H3u+ef3/HPXWfecfdZ6refevc9+nrPs0Cmj
I4wUCqWXmUL573N+aN93dLlftlA16s5/I5tWerA+rKpF5N/xZ5pM/8I0znFh
VQX5/0Yl7c3PmG9qnML/vq+jqa+WG3UTF1L9f9GaaMyfuhanygv+O7+VZqDu
pdGlKaB67Oh/o4O2RtTznPi+Bf+u76Y9f2GbYebEr1r65b/RS4tm86cE+/D9
izdAM9TWzAmU4/13/iAtJCXj4YQl97/4w7RHo2vOHr/C+e/6EZq50p3I6kTq
v/uN0aypb6Z3VLL9i/eXdq7Dgi9+iuVfvAnaFf7wmYEVzP/iTdHUusfH5nQZ
/8WbpsUnFn4+60z5F2+WJtY06sQsP0P7x6f6YHeYoYTbxPwxRZnkWUDyZCF5
PiF5ypE85/LoPcVInimL6T1TSJ4RJE9tkudhkucpkmepIr2nDsnTnuSpQ/KU
J3neJ3lSSJ49evSeW+6O9SvroGf03L6Ws9boeTdIW+DZGfTst5AP6/ATAk+W
Fg8X8buC4Ckx9fO7xXMB8FTs+FgXlrcAPC8sXphcWsMPnve4ejypvXzgmU4J
99xFQc9E7xOm1DU84MkRfr/Ez5ALPAc291+hXOAAz3bb/UHHYtnB0ydRJ+pG
MSt4mrpdD6QOMYOn+/OIbZdFmMBzeX6gypfNDDg/RRpqz9+Ypc17nusPZItT
mQRPZ4+axgTGMfC8/P7sAkWC5/3tBkcdCZ7ZI2t9HhE8w9xSbeoInscFg7t5
CJ6Rd6/xqBM8DfR/vTxP8CxqtX6XTPCMsn8y0NiDnsxLe4b4CZ4hIz48PlLo
aWGfRm3Yg562aWlDkm7oec3g9XX9GPTsKVnxfuVn9LxxXURAcQA931N1L7oJ
oWfJJ3rPIyRPO5LnCZLn0A/r+OZsEfDkCdybvqhMGDyFHPVYjVqEwFMo0/5F
4JggeA4uWP85jwM9r/YEnpxZip77ZybyFeXR06p1dOqMJnoOxGerPN+Lnqe/
epnVNfKAZyRzurQZOzd4Omjv+PVNlhM8lx9TddSypIKnVNZsduxlNvB8WfFE
IOkpC3gGL88WLitnAs+U/HFVu1EG8LQIul+9RoACngcNnQI3G0yDZ1BlbcZv
Xfh9qyqs1GgRfDoKng8Ubv+uI3iuWbl2FR/Bk9+de8UugueH3V7V7gTPtoa7
MqkEz6P3nYU7CJ5tBpedFxM8feqFl+sTPJ+88er1InimNCh32RI8rRV+9+Sx
oafq0txDogTPG+crcg9ZoCdnqkW6jxd6Kumsr9V9gp65mgfb5b+iJ4e58AWW
EfRcT/K8fevuDJcGeq754rBQO+8veI6soPc01nVh4r2GnhmhpYt2RaOn233z
dR4Z6JnxcFIpowg9RZ/c2d7zUwA8c6eLNi4fXACeviXlQpYs6JlwvaExZBF6
Vi+pCilYj57sLG+cJr3R88zqRybHk7nAU3i3QmltFQd4CvwqPZ0/ww6eUUHr
y8RXo6fbI4YcLkP0DFSST9G4iJ6pbUVlBxPR8/SD2Huvc+Zo8543SZ5p1obr
DPnR00Ti3Wum4CHwPKpD75lE8rQkea4meTKRPO+RPJ1JntEkTxrJs52Z3lON
5DmkR++pJrTmScM0eoY96BSIW4me0WrashZ66Fn2fkWTgAt6Huf/M3TyHnou
O/OC6hCMnr/eROWP90+B584PgkzXm8fBcw3JM1gr91n3YvTsu/7k27IN6PlE
lEHNaid6Gr714gs3R8+ZAmvzLyfQM6vo3GZWL/Rk6m6uUo3gB88Xj8xsLj7h
A0+N5yqUM2684PlhRWBgXww3eB6MdH1hX8wJnhG6me4dQ1TwTNRf/dlcFD0X
JFprxO9kBc+CBIbjQSeYwfN1/eJe0zBG8PRwDQp685ICnr5OHnk+cTPgmfs7
ZODShwnwbKVEmPtJQP5RjeyfWJvXOAieekwbZJoJnlEF7CYiBM+kTTaKuwme
El3an68QPE/KhYxnETwtVlcl9V5Cz7px8WIJgqd6hN16E4LnNiEjZW6Cp8QY
9cIpgqf5HS6P0s/oefo3NWIFwfNtw82w44vRs9q1XNlXDT2vhQVmqNijJzX4
dxnDDfS0IXn+PEXvyXrEeWZlNnoGet69ZJUN/5eqF0mehfo79S2GhcGTd0vU
bAgberbdDBopFEXP0GtzRhRZ9LQvP2+0RR09HyQIGDhboOdSb95fzxzQc5p3
6Z9eL/Q8YjzEYC2NngkSMz39Rui5sXfv9gh39Px6Ul3RKg49V3DNfDEpZQPP
dF+ZqbgxFvDkrxld5i2Bno1Z8Y2muug5NFBqMHIOPZNTMhYuNULPalt6z4cd
fyvlTqJnCM/ZzMyV6OnhtKTZkOA5e1j58FWC5+0Sm7vvCZ6R0sK2IxvQU9J4
0GsNwXNQsCRkP8Fz1lNjKITgKWSwPymH4Mkrvtakeg16ZkX794oTPK/F3rA2
uUDw5Dr2v3odPRl3+kTvKkZPFlOHuKpB9PxwbqNj+0L0HLf5Nr2Jhp4nFeI2
WduiZxjvrxPqvOjZx5+y+48eei6ouCVgIomeesxWaWuiB8DTdCYv5ZEdem7k
+V79w0MIPM/UfNotGCYIngyMNZK7EwTA89v1EXe/1wvAUyT1m2NuGT946mue
XjnVwgeevPxmUY79vOAZULtyRacwD3r6O4weonGBJwNVW63pGAd4Ntr1p+0N
ZQdPjR3ikiWvWMGzfuXa6gXNzODJ9WVtazc7E3iuWSzQHrmBATyTsu2GExNm
afOe1EOHmoubJsFzRmTxjv2UcfDccH4k7ezPYfDcRfIUt9vVGEXwfO3SRKkg
eMp3UH+xEjyfywYf207w3KpUG3ia4Dk9ISCXQPA8vTVEuZ7gudLym4AowdPz
ks6rSwTPJU5HbzeroOe1qP1TKgRP08tsX8ND0HOqr7j7exZ6nj1hvK+nET31
VG033mBDz7YyI01hGfSUbltr2BiLnrlSurI+X9Gzm+S5Z5OtlngUemrtM1SU
YvoDnmIS29dm6KCn9NsttT3W6Kk7Xli6whk9l3U8ldvnj57P631UI++iZ2mm
676vz9Fz4nPwCs5P6Llo7YJV4S/Qk9Xsi+vCOm7wLBpIUkpiQE+Zp0xmxtLo
mfX0lb2YMXpyZRjHi11Ez/J1wlku8ejZrf9S0fIrI3iKDx+3lJmkgOdfx5ff
snajp9niWYcXmeipxvFA+Nn0GHjylnFObkuG+kh1yJLe8zP3V9EUgqfr9vAH
rQRPjraCb4sIns+bVocYEDztdgTd8CF45i8VP/WK4KkoIHXxdx56ssks2i1P
8EwaOeR6tRY9T2vFL/hKQc+01zEPZ6XQ07js51OqIXo6XNf8XX8ePV8sNY7e
E42eyX0v6hQK0XNLEqO4bB96Hnp5wf3oCvTM87cNKz2GnuKjN6wbH6EnN8lz
8J3th5uv+rCev8/9y4sNPWlCNweyRNEz23DxTP8G9HwXuYMiqY6eRZ8oo/ss
0JNXnqEq3AE9rY7sCi/2Qs/vGtv1GaXRUzr0Pc8pI/QUP2125cf/8s+8Z7Vq
mKnWIyp4qswVtmSVsIFnTdLepXIjLOAp0G8cvGkpeu4peh9dr4WeB1dcvyR5
Fj2vsO1R6deeAU/KOU3xva8mwFNnZcbzlJ3oeYBtcFfsOfQsfUvvqU/y3Ery
DCV5xpI8DUie8RvpPVVJnuUkz/YQek82kmcWyfP8LL1nKMnzIeXRRQtR9Lx8
13GLhxp6tigJB9y3Q89bjw39fy1Hzy/Cyw+mnUfPIz/tKLaNo+DZeL+7UJ8D
PTuPNz9P7PwNnr1hH7ujo4XAs/W4FFdthiB46ty4Jcf7WQA8dcyT9u5qWACe
rsrPrnkM8oOnj8mDwgwW9AzqjeHtXYSeEnv8S3bt4wHPNuqs90sfLvBcd9Kd
YWUKB3he/sF5+sZ3dvBcGn+ibGqGFTxT76dd3y+Jng2t1C0J+kzgaZzzeHmi
KwN43q/yON6zbY4278nj4sh2w28KPCWf2B2cyB8HzwJjponvbCPgaXX8/YeJ
VMjnqvE550WUv3WDp12fvc4Dgmc0Z6jjd4Knu7xcBBfBc++QbO5Ogqdg9J6R
CwTP07IWCmkEz0vHin26CZ6pEnzfdhA8vc8ey35B8AyulPEUJ3iWBJ+XvE7w
zAhWdx0jeCYsc35gRPA0KtHkvUbwFMjxbbUneCp7+nhnbEVPg4jpnPXe6Pln
2rr80Vv0NCF5yv1/PJtG4ywFg9FT/SB/r24sehZHR33wzkRPj7dJlLfF6Pny
0/qOkV/oyWTe9U1mmA8880K8D9izoadDQBOzoSJ6jggzO3+3QU/TQy6fj15F
zzzNPZ5cqeg5ntOu8a0OPeOqDzkVM6KnnjfnW/516LnjnUdstSl6VjGs3fWL
gp4ioyp+7yzRs4rkqaq9UKS7cxg8f7u/7e69CPlc1TIn/cXqzV3g6SZb8Z6L
4MnGHmOxk+DJLbj9sRvBc8D59KXnBM/bV17dayN41sfzhC0keCZNUdN0CJ7y
G4cqhjej58OPIgzaBM84uzmPEH/0zL8RG/H+OXr+GC/XK6pBzz08h5huzjGD
p5b3FnvG1ehpau+3u2w3eh6yaJsU7JwFz4uVI3y/ZNDzWhOHwQ0n9Fzxzsdk
VzJ6tpM8RUieVPNDfneN0DNA16Lh21H0PJJtnszhjp5ilp/Ndoag59mFfsYe
j9Cz6+tinews9DSO5r0xcIsXPM2MObnP53KDZyjfpwiebk7wXGSouOQdP3qy
L3wmFbYVPSlCS6/GH0ZPO0mG30uvo6ed9m5BtSxG8Kw4nubr10IBT9s3K39f
F0fP4wolPbTLk+AZXb/ZpPfPGHiG2CdZBJ5ET0U9dYs9TujZ7NbD3eXQDp5c
P30rIwmeuZ6aqV8Inn942ASZCJ5/rlXeVCJ4qla/zHUgeJ4+f73zAcHTbNxl
7C7BU3KrZNBADnqanFVdurkLPZlERqVs+dDTvln6lKMSejrEd2QoH0DPKreN
XzL90XPjat/4lGfo+fdECeV3FXr+7S/QPzgyA55K5edl6rajZ4dDTcomH/Sc
TDjqcebLEHiW9aazdldAfaSaS/KkdsiaO2UJYn5faBv3uEQAPK8cbBRubFwA
nuJ8SV+ER/jBc/+hTX/12dGzRNa6y38JeqYud1vtc5AHPLv3CeydDuACz5Nb
RSIupHGA565TD9Yx/mAHzxEfK4PbTGzgaZQk/UV9HQt4Fv5YwSVgygSeBlsW
vljgyQCecb8/5STrz9HmPbd8onyvi5kCT+lLI+pRo+Pg+WLd2WhX7RHw5H83
fnMiZgA8hxXFfA8r9oDn+x9mFT772sBzaSTnruMEzw/2uRIPCZ4FIZdLvhM8
29/1LeMieDYtsu7cQfDkk7Z460rw9I9vFDMheMZ2L5x+SfBkSA7V4yN4/vkj
EmVdj55hP9Y9ucOInsEpSuEvpdFz4lCZ+wMj9AzxD7XYeAE9ozOCxOzV0POy
juUO52D0fOgbeIepBj2p72RiLETRc/B6h5/2JfSs0TXTi2CDelNV/aJD7Ny9
VvC0vVSj7+yPnofanj5NvIuet/7kXm15jp5mSYsOiH5CT83Z6jemtXzgKfM4
LntlHS94ar7S6YtjQM/bXx9ObZBGT7HOkwpfjNBTSoP7g7c7eu6qXsx1LI4V
PEtWXKwKLWUGzyMPfqqvH2cET7M+zrd+y9DzjI/WuW1Rs+DZ+zGhOGV0Ejz/
/DQ+FmWBnsYma+xMC4fBc9nLmXzuVeg5eT2LxvYM8o9qtIifB0dXC3iurQo3
cyB46jgzr39E8LS13HChjuB5aYlVIQ/B0yfFyEeN4Hl9D/f3zlr0tNy32nMn
wVOXt5orYg16Cm1wk6s0RM9CrpipMTf0VLGX7v4Tg54Sytb8CZ/RU2k9s97o
AHpqbcvNeyKCnpwUj7cDF9BzzeimyGWf0FO7KLTBnwM90zoWpPoaoGcDr1R5
qtwf8BRYemBfeGkHeO4geVoJXl/AvRg9q7T1F6rLoKevgh+fuxp6stnbDqea
oWf/kWcZXfboKVBZekVllgc8i+62/E2U5AbPLmkNF2EDTvBkEx1x9TpHBc/0
GluLrods4KmQkLR3dxELeA7eNV/0fIAJPJeUL6vhWYSeSVOf1g3vpICnh2mG
46qmafC0P1H4RW/7BNbzv/RcpaJHwZPVn/NwN/8QeHr7GPse29yH/SWS53Bj
KZvxzSZcLyZ5lpM8L5E8B+3oPctJngwkzzySZwPJs3wxvWdLBb3nOpJnP8lz
Ecnzvv2F10Mq6LnDbPPDe4XoudFfdE0uD3ruMPt54KMhetoZFmmoBA+CZ6Ty
+hhx2x7sh1yZXZvgCflHdZrkeVmF03LbOwHwLNQRP3mmYgF42rs5ez5t5wdP
BQlh/6YJPvBMiVvkLcKDnqGh45X31NHzgf4tCw5HLvCcYa02OxfJAZ6jWt6K
re/YwXOtu06wXgcreP5syPqeyYOeh6kXGsQU0fNxipKppw0DeMaWrq+N4Z2j
zXvmL2j/vfHAFHjOtu4JffhiHDxNPyjkFFNGwDP52cj4EZMB8Lzt+WaBw8du
3M/Al163dCvkH9UmOYmCfSU/wNPT+V7BZoKn3tKbjY4ET8cltLE4gqcc4x7q
T4JnbFGzsADB82dkpFIEwTOmsGIdI8FzZ89ZdieCp2ql23ADwVOC5FlP8txL
8owheUaSPHlFXcJabNDz3qY3FtrP0ZN7ibLGkZlh8Mx86yzDoI+eQcU3HbvN
0dOXh96zqD+SQfdaNXg+KXsUt+khesY2dFAd09GzX2XRQFwhet7fK1TR8AM9
n26ouSPbxAuenkdvnk1kR08zJZ/itXLo+bd08cdXluhZWH6H3+IKemo2s3sJ
JqGncBWr7VwlM3jeci8vUphhBM+NmZEuLZLoeSn9z9InsbPgeaHxcgbf5CR4
LuPbpv3YFD13mnIH/MhCTx17yZOXxNCT5YvyZNfDLvDkE02LWTkL+UfVieQp
Gx0Vvo7guTk+3uowwTNW7NvtOwRPIZf8r2UET+U21lRmgqfOeF3sUYKn0I9L
H3Jl0XNxEstrHoKndaVpgvZl9BT0c7t39Cl6rqXR3Ewq0PNGTULI37/oeWSj
UfcaCfSk1oQbmF1Hz+gbcV3atejJFJK62EwCPR00Z0tZjqCnxdDhsmtmf8Az
u4Te8/3SQ5EPJJrBkzOgz9LfrAY8L3b6bxreip5bQhdclTZAz6uud4/bHkbP
+sTQl9Hn0NM/ePZqrgh6NuxszNJW5QZPvzLT4pbjnOD5Pk6DP/IGFTxDtcYd
Tr1mA89HgYnPAlpZwLMm5tI6Dm70TJ0dXb5BET2lOjgHrQ9RwNNEp/9W4NIZ
8Lz0OiNM0HMCPJ/pyYV4dI6CZ0yJx1PrQ0Pg6dkW+2jHWB948lDmvM5Ld4Kn
dJFH3RKVRvA8lWm3JUS7HDxfT10S+EPwDLAR/buK4JnOq73biuA5emulwjWC
5yqb/pSzBE9FyeKmIhp6FnQobOEieK5OTgrYHIqeue425lteoWev60jrTCN6
SuWcTzrAhp48yoezpWXQU2d0Rp3dBD3HK7PMJgamwdPZT54/eRN6NulKsRq4
oGdsmumG+MRB8KxJXetETerBfLTqW+d4bit4BgTYzXgfgPmo2pFG71k1HnFw
KngBeH46k1258RE/eFI8muPsob9RSXtYJWiz6xYveBaIZzK+zuFGT36nz3Jd
nODZalvP8IKPAzz7xotUlLawg6eiyie58oOs4PniTNdfr0Bm8LzlHyJrmc4I
nq7vThk4/aSAp+yCXKtazlnavCczpchK8MAkeIb17Hy7L3MMPLe5MwSM8g6D
Z4FVe597Qz94/mK59dL3USd4TkTZa/DXN4GnIcmz5fPP32Jv3oCnu1X5RD/B
M0FHMGUVwfOthOHoXoJnJId0y3KCp3HHfd4gguftCcm3/Z3omdIVZqtL8ORy
FJO8r4SeO6TX1jUcQM+SKsnXTAHoWdE0tm/uBXqmSB4NelWLnmfcJrcLUNBT
SXRS48xu9GyatDnQeRs9Z6LVtJKbh8Cz3bThiO8e9FSa9uvu5kbPVpIn+x2P
903x38Gz/jW9Z+QrlzTFrei5be7D35P66Pk8eezP00PoefiLUfHXPh7wvPo3
hNNEGD2X1O8zaldBT8W0MxuDjlHB019Z8YNhKBt4rs6bUdXLZgHPxycXu95p
YQLPuoEr7+y50HP7y5bvvIro2THn0CxUMA2eZ/pSh48tnwBPFi3zN4O+o+DJ
8NQ5IWF0EDz5n+0PdxnuBc+XGzm1VMU7wHOHWUPrRb0G8HRqkzt5JqcY3+/Y
Y9/L8vgheHLMbbGQJ3hyfgxWsyd4zj5753qf4PmsmaJzl+A5bXdWaVgIPVOG
LRlUCJ4zAns4XI6ip+L+RI2AYPTsFZNOss9Ez6kVyRqTDej5nfXZMioLepoY
ykjpr0XPL0+Sw1Oj0dNHsdVgpuMveBZZx70KWI2e+63b3oXaoGf4a9f13sI9
4JmwWdP1tmYreBqniX8P/N98nPcMHbN5HWMC81GVes+OzrM0/YuOnA0/eC7/
oLnmuDMfeJ7fWJmvzMsLniz2rnmJitzgqT53h1nkACd4Pg0sErpylQqex2VX
KvW8YANPhYM2awzrWMCT92rDq1QGZvB8n5QzwC7NCJ5Wmzp3GxhRwHPmgnFw
z8g0bd5zIWsvV7b6BHh+stDUPx8+Cp4ObY8eVcJ+wr+0Lfuk1LLP9oLnimLL
E0rK7eAZ2/8ye+Gen+DZI1TdpRBSAZ5HSJ6W4uncdeMvc+Y936TRe37Moffk
WE/vqXqE3lON5PmE5HmM5NlwgN6Tm+T5luRpSfKcInmKkDzzSJ5HSZ6J9psL
RFegZzPn+yg/jTZ83pRYvPm5TT14+kV4LvTU/wyeXSVuL2n8KeDJJkHv2W75
2ezuTvScmLZz+maOnrfejPEK1PKgZ6el0mUKek6eDDT9I4WedV+7bPYboqfS
gzM6JW7oqXuEnbIlFj1d5F1tE4qZwLM8/O4pgWEG8OSvEs/yEkXPg77Hupr9
0XPLqj2S1bV/wfMkr0rq9Br0zL8/6f/QHT1vjfroVtzrAc/+proDtzeip9fM
IjrPEyTPSslVc2Ffw+b9VDNMeXc4GBSAZ9uxj9LhBE+XDDXlYoLnp0bHcEaC
Z1DV2TtOBM/ujTuu/CJ4WstvV9EjeF6gGmVmEzx7mlcUSRI8lxgpbw8neEaz
zEXPDqFnc8SZN8cInr1KyWtuEjwZJY3fqRE8G7PEL7+WQs+fgqd2l51Hz2uB
QSHjoej5m+QpnycT1VtWC57yWX5jj698BM8rQqN7HeTfgmeb1mO/1qAa8LTo
rvbs4EDPy9asYmLi6MlMOVuZehQ9He0ddeVCuMBz/9Sw3pssDvCU/5iQbdrE
Dp5bS4ZEOajoGRuo9aRTDj3dTuXfYN2Lnr/DOE5c90HP4cPd7533z6+XD9LO
7ddi+5U+BZ4Bm3a5RXGjp3HjI4lMhxHw3P2BGneragA8vS5M3s6O/A2eMz8C
u2OetYJnTtLtAVX57+B58Z4XNav7DfaXFtJ7DpE8mTePWzURPPX3b2gRIXgy
sC+wjiB43qrVGhkIRk/Z1dQiNYLn6V3n670b0bPq9OD5RDb0LGONV3m8AT0f
ix/+dtAcPc3ZBQrSPdHz8yLnzR900NP/XuXIgpvoqbnTTmPTr3Hw1OPnsDqw
DD3jjdbfbdqHnl//3Nvru6gbPE0mP9uYWzaDZz7Jk8Ob3rP51LTa/hW54Klk
wRs6N14Hnsq3A95HbuYDz6eWp8ruRPKAZ/6LnPXs77nAU/9l3CPXDg7wXFDp
qdLOQwXP4z9+CJsosoGnpQmfvNcBFlzffMtb0RnABJ5tU1s/5aUzgOfRDp97
1W/n188GaKvd3b9kCU6DZ1NaFHOm01/wfHfAbk63cgQ8y+5NrLimOgieUWKz
Zxs8e8DzFeudwLHsNuwv/bndd+bHT/AsSSj8+PlNBXjK1IrocnQGgedIf6Wz
RG8ZeO4jeW4leb62oPdMJnlqkjzlyuk9d5M8aU3pJ1ht0LP5HbOrpx96tqve
VfNJQU89RputPo/R08VOmNV9cAo8raPlChwV0bN1hy//pCt6mskIN6okD4Dn
A2WrLqmYbqw/t3h3Kac0g2cgX4gyTesb9ucLEusq3JPAU2PRgxHL/tycec+N
AsqLV4tWgecFWvJir6MN4Dk9dkm2bC0veN65PuopZ8INnsFmjlxxFznBc4+n
zMnV8VTw5EmrH04vZQPP7vMShYZjLOD5WnujEac4M3iWDq3uG9BkBM9vQof8
lpymgGdj7tf8k5tmwHOH6qlPrIET4GnnESNX1TQKnqtH6x+u3TYEnrt2bhE+
Bes9Y7R1PE9MBakd4Nl/+pCT5EgD1ktNnxXDJMvBc3OQ3sByXn/wDP6UELzo
ewF4LiN5qgu5ctreQU9WeZ/4VwTPVSTPC6+U+qIIns92pO0YjkNP9WQXFjWC
pxBHyDfPUfTMXHq87YEYeqrrOR+4oYGe0g75T7c5oidvhuepTin0LN5sfaX/
LHoOs56ReJuLngWs9R4c7OipYMKlnR/eC561BsmeGazt4Kn+67To00/1OD8D
Je5/Si4ET6coXTrPAJInLXBVgUhnNXgeXUnvmf+NYWlXAjd4bpt0OWn2lRM8
Zxtkvnwap4Inu/5GmrwEO3jejgmtitFiBc9rav0xfKeZwXOoslQ/LYoRPKka
S/LefKKAZ967ljrmxvn3U3ppxvKeldKKk+Bp6vdKyit8DDwrzrtevjQ2BJ7f
l5yOVCjqB0+Riye9HfI7wbPaO2Jo92QTeO4xW9cdKfYdPO8VGT/aUPoR19/N
VJ7fvJaVM+95lPbGNI2vFjwtNIT0ThS1guftIAcRL7F28DxSQe9pO0Hv6U/y
3LCb3tOV5GmvSu/p+lhSdPdt9JTNnT26PAc9PdvKZF2L0bPq3odbPILoebbi
p9FpS/Tc+TComu82eh5kOmTge6sPPE8Ex1rU1LeDJ6slR+nq9z8wH50QzLQ/
lw+eORnN74Wn8nLmPX+yyt6/8KwGPHNzIvp42FvA081cmi+pqAs8LwZMKQbI
/QHP70HUmnJTTvAUTBmUpXlSwdNU+vq9lAQ28JSZmVu+5CsLeM4OeVQEjjOB
p7Xb9OsJcUbwPBqiO31ciwKe16Wjw1Ob5/N1N81jj7JK+MYJ8Fz9VPilm/co
eHaIrl3lWDUInt86w5k4dHvBM/LaLr/ZvjbwfH6HbVvLqh/g2V+3VtJzpAg8
xdTvRO2mRufMe9oU0HvyU+k9r+XRez6xpPdccZXe00I5yjqR4Dl5JHXnQoLn
Fafnf30JnjbfHx4eLkPPzHox6wMEz9TIoRdfCJ5ysvy8SgTPx8mZYuoEz6V5
TZsECZ4rC3Z7/bqCnqIvrQQfVqJn7bs3MXe00FPKbnvBk270TFJudjAVRE/b
TmbnDU/Qs9ueq67wfCx4Wqi66LJdKAdP9ldrslTX/gLPr79vfRRmbQfPsAgW
nnil3+D5ifv5sVTFQfBsFnN5qyTDAZ5jd7N5H5uxg+dth8unhS6xgue4bVe3
92Nm8LywSMF3CN7vaaJdOnrY9OBfCnjOfdFZ360+vz7WQVNhUXxw8+4keJZ/
OHsyeGQMPKXjjhV0Gg6Dp7BVTVuqwx/wlFWuY1yi1wWeWzfVmasYNINnkM60
lIzId/Bkc6Std7mbC57WNkW/1XkSwbO/glfxmF0FeGof31KXsqkJPMsd29T8
GjvB87qpn+1iG5iPqt9JniokT+HSV3Seofb0nhkkTx2S5/QRes+IvP3D5iro
eU7ntZRtAHo2BZRtEP+GnvJ+TZWHhNGTNUTX8WFCP3g6Nsla3GTvBE9Xzi1/
N/n9Ak9LPpZTWR1fwPPdHc14L5n4nHlP88f56UpN1eApctN00UrVdvAcdHA8
7iXfC579lJtZYeKD4HnZW7Ll/u8h8AwYGlsllj8CnvsVfP1LPFnAU+3k2OGt
j5nAk2XmyKOnXxnAc822a5zyA/PPf/+rl1KlhgV3zO9naaKJOpUETN6Yr7db
aVkcOZkdLSPgadS8reqr0iB4nh4IVxSV7wFPluUNp/bOtIJnQZO5uMvrOvDs
Clq+4od3IXhKJFjsbxa+lzPvybZbZWQvQ2nOvOd3gbmuG/V14Om/xzCi5W0T
eKY/p/e86kjvuYyB3jMkgN5TbjzyUbraLHgWcdJ7ylnSe3I203sq8NN7Lg+j
97ScKKbzFGej92wwV+Tvk0FP79samqeafoPnaevO1bFW6Jnbwpv68lINeHo5
2VopU3PBU2b4xKOYBzng+fjsr6y+kFrwXJu6fs+IWjt4vmhKPKr89A94Ch3m
5N3VNg6eYrVqFpvnpsDzTaLJVVW9OfDc1Kifd0+GkjvvuZzkmV/pV9guNJ8f
smnOmdpNjUf/0uY9r05zvO/Kmt/fU0mbzQ8RZ6cOgmfiiza9yIzf4Kk9ZVAd
aN4KnplBIhGnx2rA8+2RC2ucvT6C56H7juZyhS9z5j2HkqYK1JfMP38M0F4M
u/tu3decM++pdvtJC+O9rpx5z1XFSn567/6A59s7H5dV6w2Dp6PW0zbV42Pg
me/1Sut53F/wtDxC7+ldSe9ZlUzvadtE78kpHO+eLjsFnslSKSqCBM+J5U5F
3UfQMyZ2kPl9JnoqWtla3mBDz7S46eaiF+hpVLg5xMkIPYsb2B9s6UJPRqdp
Dn1z9JzmTVceVMsET81ZjeY0PfT8fGSSUueNnlHRxv3aTeiZzGmgoy42AJ5W
1yTtFIrQc1VRpfnPk+Pgme4soj/INQWey5/Fn1h+ZxY8L+zTp+6ao+RCPyRA
daTXjzF33rNvi6FxVTITeC4W2RC4qp4p9/8AKIlgpg==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.405942228074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Kappa] = 0.01", "Text",
 CellChangeTimes->{{3.405942012803*^9, 3.405942017723*^9}, 3.405942170468*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF23c4VuH7AHB7ZoaKkMrIXqWkXkUyIoWiSCgaRoUoI4qoiFBGKCNRKmQk
FYmGvffeK3tk9vt+r2/u5zn++T3/vNd7vefc7/uez3Wecz/3uY+Aud3x8xRk
ZGQbacjI/vu6OlZoSo1iyjYqR4T/d2STPp+pud7QteHf+1+kp+WtwSxzXMry
cv8d1SS3h0Mpaoxc/z5vJC24LJW68XMq/y9aB2nBnWs4XY7j3/bdJM0lJbqR
w+uVrSz/O/pIbZeuC24zZv+3/yBpqbD44KkrbMqlJf8dI6TrfOpnH3mx/os3
TrJgGVoMlGH5t/0EKd7oqcJfI6Z/8adInnrS9ja3Gf/tP02aoJtJbn5F/+/7
ZknBDz+1a1TT/ov3h6R2h3s5a5H6X7x5UoNFcJvgdqp/8RZJQW/G+IOPUPyL
t0R6QBrNXXEg+xdvhXRAK/ZsieIy6d/hU2byKFnwfjBP+t/2ZMr3RtLJGVpm
SP+LT65M3SpXTSc+Sfrf/hTKoeVU33xnRkj/+z5K5YxTXw+K+/f+i0elzGng
GaAr07Ian+wWNdHnownRp6+M6BPiT/SJWuPzdI3PljU+WWt8Btb42K/xITET
fczW+OjqEn0U1vis+BN9vt8m+rwzI/oorfHZvsanXZPoE3GL6DMyTPR50UL0
ubTGx9mI6HNIn+gTo+EkqaSJfLaelTKzP4N8mPIDwl9dQz622pyNnXc5wUd4
IE5g01MO8Dl6ON5R99168AmIEGvw+cYOPowF0tq59Wzgw79U0Tg7zAo+mWQv
vSTJkM/rnsPJJSLM4MN2xDRV6dg68HlscU/qzQ0G8BmNMFDgi6UDn2cuezID
imjAh4WPUoB8igp8ZF/L3rnCQwk+X6mLR+tVyMHHm1pYUrthhbTq4+4arWks
sgg+B5QojjdfnwOfk7n6pofzpsCnKyvo9K7//I9Vn/Hd1uwGhwbAR6pto+8B
vnbwuS38xtz5fQn4FImr+uzFfEjnMx5ew3ykoh4FJmE+Sm6WDzownz+Jpm4b
MB8rUdFzOpgPF3OJkjfmY2lvRfkJ8zETbEybxHxm9BhUd2A+byo0jXIxn/Db
7R/EMJ8dfxTsQjGfFHULDgrM5w7LQN0lzOfn0Tdz5ZPI5053aYgE5tPBl1R2
E/Ph5RomU6tHPpdnqsOGhZDPk5g+PVpH5FOZRfRhXuPjtcanppXoY7DGx3fs
flV79gbwCVddot1QxgU+DK+/q+h0cYKPWWmgj/csB/hUFNnWfmJAPi9fL0tN
8yGfdRx3IsTkkM8jdZZNFoeRT/K+sJSI08gn2n2wNL6dGXzu2I54cdAxgY/U
lalAL2lG8FF492Ry2pAefIb23bp/3pMWfD71WnTWJlGDz7uLJeGqVZTgk3s5
nubtAjn4bG4J96HbRgY+pa5PTzk+WQKfc9Z3zjT3/gGf0KYPJbFyM+DTx13J
Ge06AT5J1udl1a4Og0/nR569uwq6wWerBkdgZW4z+CjH6ylv7v0FPrqT8ly4
T7TaODcX5hOXYrVJG/MpXvzL4oX5nKnKWPqI+Zw7Rtk6gfksVn15I4L5zD0d
vWSK+RyPuMfyBPPxnBYQDcd8Ytmie6kxnypX293XMB+StdBCK+azTlewQx3z
WS7frpOG+by449W2EfMZekfadQPzWS6i2168Ffn8qJpknX2MfPL2E33084g+
41xEn2+XiT5e4sE3Y9KQT35zc4DMjUbwcYwm+iSm/PVm80M+08aTserPkY+G
RnPurXTkE8+d0ZL5E/m01jvN/25ZDz40Mhu5BCfYwUfnjo+sMTXyGe3O1Ane
hHy6bsVdKpJAPvu3Lqyj9EI+5iKCaleT14HPiuuwd3sNA5rf5r2sjZbpwKeH
3k6gRRD5aM9m3LHSQT70j8oHKJ2QzzVZy0efnyGfk3GRavqP/pJWfZjOrO/u
6V4EH15G25oKBeTT2XqkzfnhNPi8XXdKnXd4HHxGNkkJKLwdAp8SMaKPwZJf
s/61OvAZY5RN2WbugfKDNT5Za3zy1Ik+bRuJPq/riD6O0kSf37eJPj1rfKZu
EH3StxB9ioSJPrwuRJ+k5f0aBzEfk7NiWZGYz82lb1/GtJFPRFQZ787ryMe3
Zbz9fDTyaVU3T5jyQz66LPuu1LQgH2+BSk4nceRzaqHXQd4V+di4Km0+Vop8
kmnD1zEcRj72QzUHztEjn7cFz2mivtaCDyUF0YcUnDDTz418MvkuSfBLIZ+Q
u7zWJ1SQz+fp++/9TyIf/ntj1IWXkc/+AxyWS7eQj8q0Zb1cCBv4JOYznLmc
yAo+v1zDlg/dYAGfd7wP3TJimMBnI+U9VcEiRvC5edVS7/EkPfjUK44FU/Mg
n3fp19McVWjAR6I6+1PPZSrwYaS05NMNoQCfRIM76imfyMBnV5HWSN+vZfAZ
eVAfI8+9AD53NhelJlycBR8NmtotQ5mT4FN/K/gYx/Jv8JG9Fe9GbdMHPjaW
6dQ7tFrBJ08q/2lKVin4DD1h7lW8Epe76mNeqy6M+7RSZOzgw3x6xdQFDTCf
anvVjX6Yj/Qzd7JvmI8/tVrzPOYzf1DjhTTm87TP+ZQV5vP2TvnwXsxHz/JI
dyLmY5nM6s+J+YhJyNV7Yj7Dg0xJv7mRT/MF8SZDzEemv4H7G+Zz7oL9dzHM
Z+vxpD1BmE9CGtGn4C7Rx2KNjzA10WfCnejz2YXos4fRY1ZeBvnwviysk/Iu
Ap/nkUSfQL6OZN0pLvDROefR4kOLfLRuLLDn8iAfwdpqvVkp5HMwuCZeQhX5
/I2yZzlviHya9ejjIq2Rz207aecaD+RTeZnPepMo8rlEe3Xng+PIZ8cfVra/
N5GP+o7RXdfjkM8tZ40nk8W04JNr+eWg0zQ1Wv/I1G+j50U+8x9us6ccQj5X
MtNTnG2RD8edqvVjkshH6fUz1SjPefC5O9N75krtDPjIF/hz7xNDPmNl0fT+
9MjHJtg3eai8F3wo1vj8kgmyt87+AT6blp3Pmx7KAJ/txtXiuE+1vLAC7pNN
/kTxC+bztj5YbgbziQ/U2SyO+fiWkobNMZ8tDXOB4ZjPvZbs6XLMJz/OrI0R
8zGh3+51HfOxcn7D2Y75KL63Oa2K+egNrlyIx3zCyhbll6aQj3DH8Vm1zcjn
9t8jIm6qyOdY1zBdsDXy+XtKMGlEBPnIXvdt4XRGPpfbaGmOfEc+SRuDbJnW
I58Dtn/+CuSMgI/ug9MNterIp50kuKHtXjP4xPuH9D18UQg+Pfq3PNudPoPP
QZ8kn9iLyOdu09a8RjdO8MmPzfnLGsQBPuoCmurqCevBx1aEO/LWR3bwEb9P
u5JZxobmt52Pr452sYLPFoHlGa1RFvBxpj6yP4eLGXwop89+FyWtAx/WaP8n
EVYMqP6m4feWIZAOfL4//DJ98wMN+PDrmKwb7qACn6YHL4eN6CnBh01+x9cC
GXLwad3z8oFa+gpp1WcuzjPhB9Ui+GRc2xdBYzAHPrEWSqPH46fARymy7apV
1xj4sGlK5DvaDYBPQX3g1vu9HeBTl9IXnna8CnxmJbtHpyuzwCfpNNGHre7X
+xjMR//h7YwGzOfUlFwKC+bDl8kRq4b5WBUM+7phPkGPZ83SMZ+XwuU7hjEf
n97QDyqYTxDP14EUzGcpd7CeF/P5zafmdB/zqQjdlj4bgHxcCmUczDEf7+GF
+6WYzy2tvGgFzOdtaPnkM8xnqEvBlxHzMYwh+vy2JvrEmRN9PocRfboOE33u
CPc71GUiny9rfCbnay7YmL8Hn0J/gxWWsO/gMxizSfq1JvKxSb9ztusM8rnQ
LRm2yR75CGt3Nun6IJ8nuWWSvk+RT6oKT3TuO+TTcUV6z9w35NMRlCR/JgX5
/PwdWlfWwAQ+oke8WpTJkY8s698NGTuQT6P2So34ceRj/ztZ4NVN5BPt/ERZ
Og752JR6nykopgAffgWnDNtpMvA5useuwFkR+fC3mFZ7+S2Az7HuiLZD7bPg
83Cvu6+kHPLJ2LBZbxs78nkuZH6ytrAffIZkyRmKXyAfKSONarVdyGebknvM
R/9A8Ol/R/SJcN73+hXmIxqal96J+VgoT2VuxHzEz9G8PYr5NK7/EHwX8xEg
LzP5jPnYP8lZnMJ8GvfRJuhjPt0GPPZ5mI8ZpWGjKOZjbf2KOhjz2f9uOmnu
GPJpbN+TcQLzUfk105kci3ymQuwoZoqQz6HDJT1CU8hn+P7Stsu7kA+rrj/d
prvI58RmthNctciHn3KcZnEr8hnpyJHc3zYKPuIRFe29V5BP7tLVb19m2sHH
Lk5p3UR/BfjM7yL6JLgefstuWgI+t3720HvTIp/fr0uFPvEgnwHxlypTUsjn
RNaFs6KqyMf3DLWbmSHyeXnmUniYNfJhE3TP+G8+sOpTevdQLJMo8mH/drfB
5TjyeSlIyTz0n3xg1Yfjl4Oq4X/ygVWfmJ1dnt//kw9AfceXp0H+P/naqk9O
yDLbz83Ih80398i5Q8jn4rgR/0Zb5NNbRFkwIrEMPiulHxSVPObBJ+Vv6HRA
9Qz4/JFtbssXmQSf1LagY9sof4NPt4ES39FvveDTk2I3wqHSCj7Vxq6tAX1l
4PNzy+QWMnteVN/xJ/pE5hF9XNb4+IsRfTrTiD5GxkQf41NEn/YtRJ9xD6JP
STzRJ3c70Sf6B9GnewfR59ddos/4iSet7piP7nFzp6+qyOf6UEfyuDXyCVaP
ziATRT4sDgaMhTeQj5KoiO76X8gnc90WtqENyOeSu5ywSekIqr9VH7hMZ4t8
fmhYeqUqtIDPjJPBRrW0YvC5JNeemsUdlrvqE1fpkZg0XQ0+r4Y/0sU+5wSf
zRdLBBvTOcBnJbH3IOuv9eBj/J3h7OFWdvBhjjzg5j7BBj555Y8iMqiRzzcb
yg8jm5CPm5Ls68PGzOCjmePal+G1Dnx2K0sLbH/DAD4GM9JGQbV04FMpZXCP
bIUG1XeUrONshZAPW5inW4sOJfj4HL+bpOFEDj5MG9l4LpH+kuD6c/FphkLg
IvgMUMi3/+6YA5+yTo7TF2SmwUey/oybpuc4+GQPzv9WfTYIPrZUu2yz5LrA
p9T52KWX5rXo/s+Rqx/US7LBZ8t6qazUizngszuUbb5BoQ583NspKXCfRvUN
/LhPdYScEu7TlGBihPtU34y8jvvs+DofjPucpvJMxX3oax2jcZ/h4N1NuA9t
Yywn7mPyU14H9/niluCC+7h12vjgPh1e9xVxn4ZPdHS4T7plKrMV5uMloa8p
jfm8copKaMZ8OP5qSe7FfBottZgaPZDPjZkr0XORyOfk0JL8TXHk84KL+56H
KvIJ1CT6XOcm+nSGEX3+81sf0z9EPuFulwqVY5HPvr3di06ZyMf7reC+d0XI
Z/OEfkBfG/KJo3JY4p1iBR893rchBrTIR2UpuZtbAfncN6y/8cAU+bDufGGz
7IN84iov+F1NQT6kvAHuwQbkUzCYzW1JjnwieS5kDe9APkvLCRPux5HPUo6l
wdHZFfCJNPl2r+cw8unw+mLRE458XrSRG/qNTIEP5fffuw8oI5+Wr8q8PmLI
h7TTPYamvRN8Hq3xWdBJuXs5IAt8hNitvoefKwSfFQ22N0lsjeBDbvJoI+5j
ocewDffR2mQmhPsYq5byvcV8JvZupOnFfLwz+Kt4MB/lMe9rxzEfW0nNCDbM
h9ds+Iob5pP9Ur+3H/NpfE0trIv56AVcHk7HfAJCGwU5MJ/6SquQS5iPWMAf
mvfHkE+Rg79l0RTyUb7/xL9fBfn4n357KCgYm98uRcjf6cJ8+vSuHpBGPkm0
E9STcwPgwz8dOmjhi3zeqFGyiPHUgI+7rp5OHykdfCzW+AhrEn0SDZ+OBR1H
PuxCC4JFlsinZd2SFbkL8vlV4vRxdwDyKQu5KXolDvkkPtxV9DIL+Vxtmbqc
G8oCPtrC4/LSeUzgIy1B5xY7wAg+UZxT2zewIZ/Hp4MfBexBPnUnnBeYzJFP
TybbwOP7VOAj9U2STOI9BficP2ho0NJMBj4+iwwS5+mRT7ZidHjA6QVUP6De
POXzdhZ8rL0fBdZRIB+LhEvidWmj4HMr6Jr6tFU/+HDzx2RdEusAn0Ni3l0M
bFXgs/2IDUOVZAr4nK2SWsh5jXzYuW54xPO3gY9KfzjBx3VKfuoX5rNVXXCY
DPMZUwisUsB8bgtaRNpiPiJa53e9wHwiye7SZWE+NpnhaVsxH7srr1v9MB+D
azyvplmRz/lfxzINMR93y67qTDPkwzGRFsSI+WSeU/E7loZ83ov46no0IZ+Q
8zqRnNTIp9y5T+ijPvL50O7RkxaHfGY9qOxfT0yCz9MPpWXWrsjno2NURiEb
8smzSZ45oNYOPs5CsWcFzleAj36cM5uFVxj4ONS7780cLQafhjU+JrYd5BZZ
HOBjbVouFlG8HnxCDzKfrmxnB5/F795BdNNs4EMRtVBHokM+Oa/FpJ02Ix8Z
BkYDEzNm8NkwFvm+5N468Nl1+tVHpTQG8EnTkyh900QHPiImjj5bKGnBJ2px
fcdjMWrwybXdfppFnxJ8EteRjAJcydH9Uw0PXjnNv6RVn3JWtXNWTxfBZ9cw
XX3JyBz47Fb3G3DdPw0+E6kBcxGB4+BTzZfw9cX3QfBxs+Pxi7DpAp/SRxeM
donXofNHsMjv7/Jn8NlygY91/+5Puas+wf0BBjs3VIPPuIVLxjuxDvARpUxI
Msd8OnYEZodjPj6sLAUVmI/3rx3faTEfKlfynP2Yz6evyRGOmI+a4GSKIeaj
Z2aQV4j5LGbqbpPFfEYOcTpEYT7q8zRstJhPmsP2eRvM59SmpKAKPeRz0aJY
WxzzORAmybWgjnzoLb1kncORj8OunNFPg8jH2KHfNm4P8vHbynJuxBf5vH/o
4nz0LfLxLZOd4TiMfLQaK7M70mrBJ9aEwzpoWw74iPB8uNH3+Qv4fCN3M0v4
WAs+Et3GPy07OsFHa5POyAUf5KNiOSPy/CnyaTgSbVf/Dvnsn6z7xVyAfFSb
tqqpNbCCj8L2V5OLDSzgU1TfTGtNjnzoYgNkW3cgn7A0V07d48jndmJWWuFN
5NMmPRlHiqMBHzWdAw55xVSofvCKUvrINAX4vEqn0B7cjHy+CdJrqD5YAZ+n
U59/MLcugE+ty+vjF6SQj2sop/qr21Pg0/Lz1dnat2PgU6m07fhJkwHwUeBI
fnOJoxPlb/mn/hSmV4PPzhW3JN+cDPC5PN1zT0gkH3xuMJlJdm9pAJ+9vUSf
vh5tgk9nROjgM8znU29VSx3mwx156RMT5pNaU3FDFfPJTz9MNov56FjFmJhj
Pty/auNLMR+LzZJyCpjPU2dh2mjMx8Xc4h4Z5sMjwLLLGPN56H+Y880U8tFv
URsY4UE+iZeUirf5Ip/mh+7xmxqQT3XYbQ8/YeQjy9uTufM68slNNWE38UE+
8Q+M5Bv4kM+xZ9TU8akdqL4jfbPOwr0KfE4eX7ZWeZUMPqlKHzxb3L+Dj6xM
BpXAWDP4TO05WP6+BPkkvh6LW8+NfN61Z+VpSiIfLQeTVs+DyKfbqGT+wwnk
U6bfyzl+CfnsCRgz11lhBp/3VtfCPgkxgQ/ziH2x6FFG8GHTTl0Ic6IHn3sH
XLfTPqcFH6/iSTXHn9Tg85SW3ax7nBJ8WFzlrh/bhHy+7P+o+fcAGficGFP4
EFK7BD4C21+edBeeB583063mZDdnUP3N3XPBvXQCfIQdB7/uPzQCPsWKvDEL
0z3g4xeVGLjfuBl8OAXvfeFr/wU+ty8qSmjLhOSu+kR3f4pkFS0DHxMFos+T
XNNH3FI94PNkjc/rNT7BF4k+eWt88tf40K3xCVjjszGE6NN3hOhzco3P+iKi
TxcN0afVhehz9JpT9y3Mp9Xg0O5t1cintmp94+xWzIfOrFrpGvLZofE5Ky4P
+dxXUfxozYN8Zh0W/eJTkU9w08iZOK8m8KH+Mn7OXPIH+Jzztzr/4Oxr8FmO
20quWlgFPhVTod9ELDrAxzSP6KOmF/tT9vN68HH//qj3YiU7+MxwOlLE9LKB
T+9HVf6GeVbwOc8zvZeFGfnUDzSl+KkiH7/77IML1utQ/47VJP/Fxwzgo+c/
p1f/mQ58RodcPQ/10YCPF82l1PfMyOdJLXWjgALy2fO1bCzAlBx8gqIfFS6y
/CWt+rjzpl6rP7sIPvZFr+PSUufAZ0+S/T4/imnwKWWlMjLXGwefl/KWpWfV
B8Hn1EmP5w2DneDzgytIjp2rFnyoIj93qZ/NBp8Eski1suQ88OGcvt4ZylMH
PtFMqsULAZ3gQ6M2t/5wYx/4UA2OfcJ9Lh8dbMR9Yn+1zD7HfObYfqzHfXQ1
46Rxn6eqtRG4D7eoaA3uo8anzIT7qBu7qeE+5Wt8xNb4zFQTfV7kEX2k1/gw
8959UYf5mD1l3/oO8+n/anfhNuaz969MpTrmo56c/rT9MPKRuB5d/WQA+TDn
7MhcYEE+O2LvfNEVQz5Xq6PkAhqQj57bnMzWIeTDzEz0cRfa+fus2yD4iK/r
zRF5hnzEfRymTd8jn+dWFYqhP5APnYVHWFkz8glJlFNY18ECPqbUZ9Nd6JCP
3HW90WFp5FMQGaNnYoR8JvIeB1d4Ip8LKbIFaq+QT/POyOivVVTgU8l/rF1l
kQJ8KE262yu3IR/Pwj08vWEr4LPTJW/MbGgBfGpKc97vU0I+st/YwlMfToFP
nS/nsZ0FY+AzEqNfsM12AHx6jxRuEuNFPoEN/SHbk6rB51TNPJ3rj3TwkeP3
E0x1zAcf8idFHiYODeDDupTx+UEO8jETJvrEGggF4D4qwi6BuE/Y/rE7TzCf
PyZjpqWYz53WRHE6zKemoUPAEfPxk7xs1In5XKTSPHcE83lLlRGUgfnsHj9a
xoP5TF24ecYN84kVkL9fv4B8SOHSVEKYT/9hatqCJ8hnd05xNnk/8klS2PK5
exfyET3jpLzrLvIZPVVEq5+EfN4+YeANUkE+109VTjc1doDPmz9xwvtrq8BH
Ltz6prbeO3R/m/nEQ62JQvB5tMaHZJxS2fG6G61PVbLYXvIgn3YxJ7J+ReST
J+fEy3cU+TTcaTA1sEA+R3v4Sf5OyCeOk83n/gbkY/myxXORxAQ+zRa+62wv
MILP7gi2Dd2B9OBDpTLIbZxNCz6f6H1smjupwcfe/1n+OQbkE/XVbXFZFvkk
Mn66lnKaDHyKvQO2c9Evg4+IgqSN1ul58MkdS7+j/XYGfJQkq0fDKCbB55aB
6f3p1BHwOc56VyjwfC/4/Oq/XbJPA56fUj5JLR2k0loMPuQWqSIMFha5qz73
yK3sWvyKwWdLWHam0Ilm8GEKnPpTKdkLPsq7pFUMXo6Az6Qo0ee6ONFHfy87
J+6zWzXf7gHms6QXqnkH84mgff1tFPPh9JxJNsR8dFOqufIwH1Jpve82zMfi
k3qKB+bTfzCxo5oe+WjmaGptwHxkEnYUHjiFfH4tKH28R4V8Poluq1ivj3wi
lpoYm2ORzwPXOsZr4xPg8/3FhkfnnJGPgepRBQ0G5LM8/XMsQbgZfPL6x3P8
D/0En/59PCVGnIngY3x+9/67+lXgo7n3esVZ1k7wGSNl6ckLDYLPTkWij8e1
ouqhh+zgIzWqTLc1jg18Lirc1jCCemc1qfaWzn6BUBbw6X3oLxqYywQ+1/nW
u//tZ0Q+akGOdqwM4HPtnOzVjt104LNBUZ9ez4wGfE588JH6eY8KfBLVus0P
pFGADxv5LsqvTWTg4/du6dVjmhXSqo/Llbdvf51cAJ/6PMNtMkmz4GNsfsBh
aGESzW/5uZFHIkbB551cbcV55X7wKbqgvV2xqh3V3+68GOYSrwQfxaapHMHI
ePChnNxY3ND+A3xWTJR31p5tAp+9ryqlepe7UX6gTPRRCXM8cPTdOPhQGgWe
xH0cH4wYC2A+NlKmBoaYzzEGl2t8mI9cVtKfB5iPXHoM1zzmQ9qzI+A85rNO
9gh5JeaTYu1SrYj5fOlxZ4/FfEb6RPdRYz4h9bkTZpiP+IR0/QVq5KM36mn9
2wD5zP3sbNyfgHxOMscGk2aRT49K9/fbD5DPek6mW/MiyMe+hlOV0xf51Fxt
KSTLqgAfVV7b2+65Uej6Y7SbM2VdEfh8Nn9c9vl+M/jYJhN9Un/PemisHwKf
iHCiz4HMBAcRReRTfSH6kakO8rHQEG54Yo58DLWqx6J+M4NPkmCXNzMX8uFX
GT7hsR/5jMmzyExb0qP6TqaY9uUAWvA5GC8U2p9FDT4C2Vc2WXdQgg9ZmnnC
Mh3y2Szm3hsng3xoWKMp6tKXwMftCFdaCc08+Ly+fSrjotEM+JgH8SmxvpkA
n4dyh3LyqEbAJ91VdP+X9B7wMflszzvZ1AQ+9taPb4dU/QQfsbTDm5jconJX
fRY5Il6vBJSDjyBF48l021bwGXITVnQT7EPnj97OQJql3+Bzo/ZwsdrYBPh4
JRN90k2JPrO+c164j1gs9f5wzOfGoxM81JiPy8HTn+0wn2H+LoMGzCdjr0Dy
PsznZMiPmijM57eD04+ZduTjM0fzQRnzkSOjZXWSRj6SAu7xm1KRz4dcc9E2
MuQj/slYhkwX+awTK/HdGo18Dnb+uHehdhh8HBasJN5cRD6a9h5VPSON6Png
Gu+Jm+2F4NN583laaE4K+Fx8Ujwf5FYNPos/DbdU3u8Enx++G6Z4pwbBh2vw
aL/W53HwMaoj+og9e3N+vykb+FQZsd12tGcFn+xgCSUjFhbwGfJmtP+hwAQ+
daK0iTvPMoLPc/n5xjhfevBhd5qnYU+lBR/RhnIxj0Zq8BlI7j44Sk4FPtHi
Gw8ai1KAz4Xow1xFx8nAJ1XDS9Zudom06rP32vMZ9cPz4EPf+pxjS9gM+Az9
/Wo5MTABPsJDW+LjHUfAJ7NG1DGNtxd8GJqON8o+bAYfGv2dDkfLf4GPypzL
zfmTT1ePn7Jrt/er12oV4DOy5dWGlu9t4LP7BvWjObc+8BH/Hp4ZRT8CPgpr
fHaYNXzMzZ8Cn5xIos/uE0Sfm2t8gtyIPofX+ESt8dF3JPpsXeMjGk30ucFD
9HnmRvSJWePTfIXoc/gl0efLEtHHa10Hu8xV5GPKLSqYzoh86F0Tj5w4jHwk
Nps/MKn9CT7tsq1CCXrx4NO7J1jUKL0SfDR0du+qDe0AH7bbpz9tfNEPPvsU
KjZG242Cj7mylr255QT4nFrjo9rUeiNQBfmsrDQ8+XES+dhXR1kt1zODz/Bd
55jLZMgn5Meu5kYR5PNevJBD/RjyUXlIoZN5A/kU0mTf3R6LfBb8nn8JKqIE
n+/y8TNkU+Tg4yh3QMKOB/nYOJU1fPRBPvt/XLwX2vAHfBzeUX102IF8PiR3
iejdRD4mfuTWF58Mg4/tXho5pd094JP6Q/CldXoj+OwjJ9+oNVkIPmmnGLUn
yd+CzyPy2nW2jlXgc/IY0efgHaJPmzfR52OGI5tHxCT4JE1oiOhRz4APyWn6
HO5zUa3VE/dplbHZh/vsdh+7jvv0DAil4D463sMDhzGfI2IUArjPi0R2Q9zH
/dZDf9xHzPJYHu7zmFbmty3m89PUjQv3YTqbyfwE87G78cf5KuYjZziYqoX5
bLCZdlDDfKr5XWgGFZBPgZ6ra0sa8pFutvHOG0I+7Fpbck9qIJ/dOl/dpX2R
T4HXz6vfspCPsM+rImu7AfCpHRuYktowDj52HafmgwSmwadg5MoXJ9U/aP1j
n5BVyYB8lPIDauj4kc/r2equW5bIx79Ps3f84TrwsV6xETbPYgCfyaHoiZp2
OvCJOVujrUmHfE79uP7rmzTyyV6srVYxQj6Sy9FqZZ7Ix+3riFOV/mo/4QSJ
vEmiQClhEXyEfA2lF+bmwMc/eDJyr+Y0+GRSfu/WiRoHn8cDn7+e7R4EnwT/
F6pHA7vAx0JB4GaLTx34GHL8tLlEnwc+bwWEpyess8GH22mD01XPGvD57tTe
ErC9E3zGTGi2seweAh/f56Gx4QnIp3aNj/canyE7ok9gDtGnOIfok5ZuqTeM
+Wx9nnPnBOazY0lQLA/zkdmoThLGfSr3yd7HfLaanwjpM0Q+qqdV/XZjPg7d
DdTTx5EPYwDLq4NxyMfk93nf/VPIh2MxyzHrIPLhCVS4afYI+Rz2SNp7/zPy
8RNUe6+jj3wyl77+efyrFnz+egtvZzbOAZ/vWintyvZ54PPEPKH8qVM9+CjP
ndsqcrMbfMb/H5+sALIQ8zPI53z2ayH5WeSjcy5BwnMXK/i8TA54fOUxM/hY
cM+Wt31eBz7jDE8YtPsYwEd7c8ihHGZ68LlQIum5Q4EWfNzu+956ZUoNPvxk
QYEyvpTgQ2lI4i1IIQefsC+i0bVpq/0c4yTTYM+/FlRL4LPj6aEeoxN/wKez
d6fwdOI0+BhL6isGL42Dz5/POteexw2BT4VA6rl9et3gU0xx6igzVwP4HO1z
KPQhfQOfFWGRAMfUtNxVny8d+XLr3leBz47pb/JdWzrAx1aqOz7fvg98pCzs
jijMDoPP+nwV9Tt8k+Az3ro1kvLgLPgEfST6HFzjI77Gx2CNj9Uanwouok9Q
EdFnyWV60QvzYYwSsGryQT6q8Yunt2M+2q2NF9NTkE9HqS+pnQz5zFbvq4zV
RT569Dfv5D9DPu9+9tu1/UY+ptmfHT87IB/yTNK9F3TIJ0RKQWdSpB58rtoG
6VRp54HPlbqU2xJsn8An/JpbsKA99EcrV556OqAj0Q0+8211ZEKZw+BDxu9O
zhIyAT5zfRwb5EKnwaf0cNDZZp858FnKuPXrze158NlK4XclQIwFfA64ybxa
1mMCn+S26O7LrozgU0Fd6twcTw8+S2OzMdqltOCTL3luNG+GGnxi2TOGd/FR
gc8RayH9VDUK8AkauFIia0cGPi6ydxfdpZbBR3Cj/FKOxzz4pBjOu8pUzYAP
s/xyDNn2SfC5uui99dPICPgU9ZZt2hvcCz4ezi9vsd9oAZ9H4g+dDicVg4/P
SIHAnKRv7qpPkpMQ3wbPMvDp3nKN/FhEK/gYWFayRzX3gs/mx9syf30ZAZ/0
tqP0esqT4FNytn9eV2cGfGbW+IS3h1w2rEA+U0L3CT69rtIEn53kRJ9x0/C8
BszHMM+TTgXzKe10FEvGfJq7f0ewYz5nUs48dcB8SLS6d8ttkc/15d1m+yWR
z2KMGc1Hd+STGPRzy3IZ8qH97ZPSx4d8RB5/ZPduQT6FP36Gut5APtZWLK1n
hZGPQ9VilGBCEfjMftjne2Y0DHy2VW9lFbpbAT7GmhNBnVHt4EOaDePVutoP
PnqXhx0Tf4+Cz881PhVrfLye5FyKZvkDPg1rfGy2iP14m8AEPjsHL5PzljOC
j2h82d4Hc/Tg87HK6vo8Px342DUZplqp04CPokTjSO0VKuSTfnHSPJwCfAQE
74sufCUDn32j5/3Ua1efZx8hjcr2bmkXWgCfN6MvP3U4z4JPjfOhD37Fkyh/
c6Be8t8/Cj7fetLWnx7sA5+bp9ZvHZRtBx91mq6VrrgK8BnTH7nh7hKDnm/c
5JUSs/Mn+GyKdWW5L9AEPvP7Vn7NtXSDj0ta0ISP5hD4sItcK25jGwef0dd7
nSMapsAnQ/FYSrPWH/A5WGpaJzezCD6ZpI30OxSXwefYGh+JNT5jcUQf/SKi
T30d0YdTlOjzWPiNqSDm413uGnMJ8ymPT6ZQrEY+t4R8zhlvQz6v37W9W2+P
fAyifEy35COfX0e3bVLagnxuSDk2NX1APvxpv5NUw9rAJ39IajThdDn4bFc9
JMpP6w0+MRuNh7XZS8FnvMK+/SFFG/j4TbANpyxB/4byoev8ArYuY+ATUulc
ozE+DT4Onjan/5r+AZ8iE6+WIc9F8NlCf4zmUNUK+HCJO9pFDpDlrfr4G9K7
BBswgo/0onkGuTs9+GQqDY3ZJdCCT0R+pmhbGTX4xKYOnT8yRwk+FZJZMR/5
KVD+xmzVJqJOBj7XQ6j2SHauXu8HSUt3Az8yyM6Dz7uSm+r9t2fAZ+umpLlv
1RPg8zf5EO1BjRHwKdbsYVkZ6gGfYOZRNvdNzeAjpOVoIvPxJ/jo1+7lu/En
NnfV59TsvaZI7srcVR/VA3wdL2vawSfU/Px2+0P94PMnJsqx8Oko+DxuFBq7
OzkJPglrfFzW+Myt8Wld4+O6xkcjIGQj7vMuIv8Y7jN+2fE+7rMx9lJ+K+ZT
U02a18J8mqytJHGfuXAeM9yHbzhsiwTmUzI36kCP+VyNU/3Yi/msz9Lp+4r5
SK0793Uv5sP+MqR/EvPh5h+q0cV84vre2V/KRj7Nn44Kx/5FPiEUt1dyNiOf
DIYPR783Ip9ROenyZC3kQ75j46nsV8hHq1eBh3YZ+fS2OqW0+s6CTzjp8Z3W
mXmUH7wtZzSaXgIflce76bY3/wWf0l3ZzBcbyMGnqOcKWZcEA/hMFH5Q1D1B
Bz5mXoKOX9xpwIeXueSd+Esq8PmjXz4UUU4BPu/49ITo/5CBT8mP/awqB1b7
NfpId7UYdqYHLYCPboCy/NmeWfAxC+Qddt01BT5RxleuxrCPgY/iYqtz4Md+
8EkItXbYbNkBPiy0gq65klXgc+Dwzd8vud+Aj6PtYqFMaCH4zDC1C0QzNYJP
Q5XAkZNe3eCzPbLkqYTGEPgkPavauHQS7p8pC5bupAreMwU+uvLJVXJ5yOdH
1NHEcpcF8NnMTkOiPbACPgtTfi1T5avnC5VyngLRJ7mb6KMWSvTpvEz0Cagt
JvjIRv4g+PTJHCP4nNPydo5QRj5LgwX7ugKRD+Vziw1jHcgnO9eI4oE08vl2
yMG+bWUUfBbrMoWMI5BPvGfxLnlZ5LM75CePm28l+JwzuFXlUREPPln2Xn+X
un+Cz4Es/qjeN83gM/wtVnJPZC/4lFvldTXE/wafC1NThkwboL6sfHBA+vmT
jX/AZ/zZ277S9cvg42x2XZ1Dkyxv1efO6dIf4rXkeas+z6Xuv304SAE+kuZz
TyZlqMCnQvWbhrw7Nfic0r7kHZtACT7cV5nzWcvJwWfm2TuyldHVeksjqSEm
8XYTabV/toMkmraBOStwdf3YTTJbOfcquHMafJxYTetGZSfAJ7cvxO0jwzA6
fwYaUq6mdIOPQZqm+IOUBvAxv33eTJO5AHwEjA4pPTZOy131ObtTWfr7turc
VR9un+eBYkWr/bN/SDqF5+8KjPSDT6ZG7yGboVHwYZZvN3pYPwk+HgO3zCgZ
ZsFn+1nmB6O9sL5Xtk7eteN45wL4yD4n+vis8Xm+xkdajugTdHPf9tTndOBj
JEP0sZq6SPA5yEP0MYqPIviwZ7wk+DhdIfpY2RB92O/vnZyQQT7Z2XouNymQ
T2mG9RuF58hn8PHFN++dkI9GE/cyl+438GkwcWvIKkoHnw1JOnPLfDXgw3xZ
TSIyuBN86pqZX/ZIDILP6e81FbmO4+AToXmmY+zKNPjkhb07URzxB3xuO64r
luaC/Ff5jjXzX1k+8rxVnzPGTq8cDlPnrfrMUW2neWpOCz6GR0byWHjowUfR
Q/8YSwY9+JC7EH04xIXvHuVYvV5nk8467FATP/+HtOpjokUtTp+52v9aTTrh
+1irj2YCfAReWN/3eTcEPgK6s1Eqx7rBx2JoNwdlXz34yAvvUWHQywefxpvS
Kh+0MnNXfWjKZYa0j9bkrvrYPCoOL/BerQdPkAQKbV597h7IXfXxvs4ZkL5l
HHxCnLqC5MqnwGeP7jm2Qdc58LEerTH4LLIIPuddNJtXylfA5+rH5wWLO1eP
9xLp6Q0K04YZirxVH+4pHUOnRzD/KNecfKro/5MafF6YEX0kaIk+EdpEn8rb
RB/HAuF9Od404OM7/9taG/O5TKFZvgPz4XTXlaTBfJ5XUT3ownyyXyuWuWE+
z2UP3N+F+STG0Ma39SKfKXK9qufHkU+hw4jZzBHkU/qQi7II8yGPVdgkehf5
2HEevGHdg3wS7eLD9AWQz8KLbbo2FcjHNfD74M1byOcgJQfbNUnkcykxP3NP
K/Lham0YKT6EfAIK4vZ4bqYEH6Xijreck8jH8Jjd9/ECGvBZcE1/KPKIDnw8
2gI/yGgzgE9bnzm/cBcj+GwWeuDzbRMT+DQemKCzMmfK+z9jP50y
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.405942099578*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlnW2MXFUZx6c723a7azRRtPVbrXT9Jki/iJHuS1+gryBIwLYgTYtpE4Wm
lsQPJn4gKjGS8M2ytIWSKphGE0OKkhjEkBBNJPgBDWqCL8FoAqExCAItXeee
uTNznrm/8zzPnd7ZmS2Emd2eOfec5/3lf8/c3bH3yIE7v7b3yMF9e1dfe3jv
oQMH93199ea7DzeG6ktqtSUHarXa31bXst/nG7/mb/ON/+cPZm/ZiP37WPhR
rzUvnm++svfbfZ83Pmr+bP43Et5hbGk2tHS+lu9+c3PGsq7Vs//ysfnCjrc0
pyzPfoxUO5O4HDWu+VCvn083P/jGD0+9MD91zYM/uP/7z9YmYGyZb52/3nLz
j7Jr/rdpw7HWOmLMuc51v/3NP351911P3PHzJ19qrSPGrHVivuttTa8Dzj5h
rLQOuHBeIyi2rrE0tRZov8J3jaB9VXPsF/cceTIb+8OXbztdu8y3juAnX+fc
7PRD2TrZy1xnHew93hz75qMnnz+7besjx7533zPmOqtAFkQP8WpZzqq0zASN
tJ9zbSHHdbB2vE7HetcCN04LEFRa15D/rwQqJ3uIExQTKHY41zlx33efya55
+tBdT9QodvRCz5b0NeeBZQpP46Cqz5vLvr596yPZ9PMzU3NoX/YS/75h56PZ
1Hc3zMyh2VIIVIR0HpjbaeirY7E7y2nkLNC235wupLajXHQ7C1LbUS6wnQUe
p51xbqKH+LQuHee8sejvsC0589p02EuGK95KUDYJ9nNV2rFIOuHHaLuW400p
WAk1rYQNKPxPpMW7vPmRKBqJpGQwXgWBbCItYypn6100ZK9QMHZK3E+mNSk4
ze18BaxYB65eBAHuBk3mtv+7r+z/aTb2z5u+cKrHrYTsdgMH42nvXZZLJl42
oa4XQV5UgFGBQRpVnJ8isd4snAe2leqHxEN+5s2/zwHPVPAqRZMwhPG0x3kT
x3PA/QxwujLNvbh2HLZXUsBzwOkMcJVvLxIW+XrJstVblOTbi2SXh8ULOedW
5qAMreiPhC90T/OSJjoSqKs33o/KOMe0PpW2U3IJajlJe8JQaF6+3lubNx7P
xi5Mr2/PuzBzzVx+7dFiyfQUbKA4lllwKkGHrs3MsU2ckoIUWZuVJmXAfOyp
I4fPZP/+4+17fuyot4TI8yX+vPtLj2djZ7dvfRidyGuqdkFjOpuS69+bWT/X
HstJeuWLN57K/v3fazcdLxuQTzsNnTpNJR+8vm3LwyFMzU63yRRxYgIc2iaT
zFvkSmru863+tGdXUHAjgp5s+aOZN3LSn79z30+aZN7wqFbRKaSTeVMWJpKE
5EqGQlpP2Lptr2YAyZc9+Z1vP31uduahX9/11Z+1yBT2qkQ8qmG9En4xHSxo
TNgm2aEShL2SO5F2K5HBCWRTlEkBiTRBUYJCdFLCgZsTaacjqMCs2hX1Y0e6
oTnWkP/R1jwR6EvmmRNpRyQLN8lU4oUgUwmTIqcrDuut5s6CM3nbh3EwT4Uk
ivBkil4nfiDtMYJMAgAUjQlDVYySRCYyRj7vtZ3bT2Zjb2+cfcjBDvmOkPAk
kKQ0gWRslFdJFDTPW7s/kPYdMxQoTRKWDmCARUOlen5FWm4iNU1AUrcbRDNG
UDhSHIgsk9T2xnWbQhp6b2bqqKZekqVIYXaip1KKEjNJ2LRWJdNSUyvSlUL6
vc64odzOMm88KqGRpE7Z99xsk50LUfb1xpLPBYMntK4N44Up9eY/21PaNIQp
nwEmltJlcuWPOQNUWGoUKAifhqXGCuJRk14xw5DT11P7dliI+/wg2avDQAHM
68Zjs9dnw/tyMdZ4tZy8RrLLXp8GJ+8+JJC9lDHKzlSAmFmcDieMSLkn+Via
kvtYOjwgQNCy/6yYUwgS84igJWk/Ka1WQo4Ll18JTJXUJAUOqsdonrCg5WyN
Ldp0Ldbqvzx86ImGYOdeum3XY1qXQxYl4nGCjgvTUTk7FMq7upyiqJahPC2s
fixfIVqvJcCUPj4MMi3mvXbyEF0nbBfLvRqxN90++y1PGyK/klISClgDl18G
l4+2N1wB/qaglsJnQDbv5l2k4Rpk8sVmUwmEIumTjmZiHdVqGvqsKaWL/Dw6
ibxQXj1wxwvPkImxMVCtApwKP1rK5Ix0hJyKBN7+9K3NG46FuDbTQQ9ERaGR
UBsVU9uyN8qzzq23XC1FaKJzYy78RvdWP9L+NFeasM3WZ2OgOUKJvLeolnXt
KrGJeMs3tmw+0WxI1j+IAdHbJXRvOSqKTPmZ1pmZ98SU4sk8nzCeZppSpxjL
57VC0IW48Z6OwoXdfJpHc7ygoZLURPaegDGr8RaTFZ4OAF10uo9ODk6mo4AQ
qSIPskth7MU27qg2L3ljjtkmSIjuaZlxVcERSJUkMhoTgVPxJlGUtKJMDNnm
oghRI8TWO7I3pRYZh7GJ99m8WDGN4e6OIRuL/T0YTi1veGneB2CPFen1WmvF
Nv+fbdc9nI1newkItTEWQ6jB/7poCYbYHJN+1RpT/GVQalkR+VpjOPgaibHk
eiEUNYZDKPKuF9dOjeHg4wpvQqXjwMdEeixFS7ffB/MoqDlS/URhXtuUhOon
gGbFHFY5x0qqRYTeCtQsPPfj6fXoJoSYFx8Z6RKtQO0VNbeui7PfX3bd+lhQ
6/YtJ4RautLFC/v3ns7m/evG609iyCdZKVXydJpFkV0+lRYtHT5K3lVoeRrd
QUtCMEp/R8VjS75WSjXP7SoVzKvX7ziZ7fP2xtnjjjs01DZT1UAZnepoujEr
7kgo1QDVzDRWpC8Ej6Rxhk9LHhahulcRhfeQPlmFgPrzee9snD3WLozG20xY
Rke3uwWIp0iBTrMrVTY1QnT/huyWvntANh/FLa6orQ6DAEyxuXL2i47mlyy/
vbc1KZ6S3MgxX2nkg2zszWs3dW48wb32EMeDwzXiuNLtCMsreZxgB6iSDoLR
eTWvuSSdUDEDkjl7YnEedX9EkGjalbbKe76BTgQp6YFIJxBAeAQdUlLiM82j
9EXmTK5M8/SvptEJIwWEMeMRnWRXcqsYIyYsQxTHCkibSjyacsbnybTDUfwQ
PCmyJGX5eB9LW14oVqbCHe3j2pdWp5yxeDKtY3IkigFFBIvlRuuR05AsX9u5
LbDdiLVz6T3iosb7HbMpZwRWqmEvGkxRCCEwcCRvQCYh02kJ2oNyv/d7dnS4
rE9AMfmVNyDzsc31hWrSW194QxEdVqsAZMYSEEIuaZvYppxDFbLgQ4lCVzkj
MFXIJXFoEg8d/vSmWko8dJtB0GyLYlDYtDdu0U09sjIqorHhjkVLqrJFZobm
kvnKO4+6UW/sofVIVWZ9QRZPFlrSMe8tl6XMeUo8omvf7OAb7XaAji1ySWk4
tSLapLMG6VwOF+4pl5vMuid5bQetSFmA7/6ZaY1XpK3i8nSMooKZQnjR8JNF
mZLrRLmnMGv2Q4r7iHm2UCgKUSVtPuGkKmiUEqNZVimlkegsvH6lyG2XM1Ir
ZJqFNbXoCosUgam88SHHsWGbNa4iqHvSjHn1aT5qJ7823Ghs/Du+0VgsamLG
KOyQuE0TVwRAD3ooiaN68X8fjioEUChgfEfU1LbB+9gY+lJzBUVj1YgqdedU
ndA88lMzXNsiqxpR9Xli1YhqSbTNDNeK3OjIUAUVYdXoKZmfqCZLVgZeT6Sj
RcojNKrFTDu1YTLneDGKmMXAIcmV2vahA0mVG1ailCGDVZ4hRnZBvftiBE6T
68XNh1jZFpTYlDr2RQycstKKuYmCnNfedqVFMezAKXXxPXXitni8wKlZsfQF
OE26Dyktf5LoByPiWoeKSkKj3oRSNTRK5m6WbJJtceaqgoqWm/4hgEG9biHF
I07sLQTkWXz2zeDgTW/0ix/dHL5kQo9hpjMplwrQ6a35Ek+uTomMYFCq/hYP
DEoKyp9c6n3AIUGjixsGpXm5UMZBKOFbW+GRlWucGemSAj/JiC1pOY6jDBj8
pHkXCX4qvtb8fmHh+4AUg+j4SklM1GzBFUxU57cnTFRxt2DnnT994EBHK0BC
fRW1fky4aiT0cFMeXiS0AtST8vPFoJ4k/YtBPcU8Wzz9Rzjj/DwoSNNrMwRj
vQ8gTTFmi2eYIE3zZty30uyQNClODitoSYeLhHxt3nuKjosCoOSDRGKPWDwx
sm3GxEsMjDSPBSl2RK3fEIKRxHZlYKQtnmECI4suWgqMvL/JLIGR/QIenagG
6a4n4FGyKIDHAYOMxCLZgrdoMM1dikKAjEMIKHqb4soAxfvTnk/tx4BhRF+f
XiGMaIvnEoIH50xmq4H9SOoLDvvZzHpDWl/APm/V1FewL5ZR8uAEcVyyMfbC
ed5aqQ9wnmIuxCwFhwpwO1/Y7wtuZwvA7DhLoXBe968aj3vc5FMsQYGxT9gb
WX9fsTdbFGaI7BlnI+K8cdKrjJ6wt1wo1D14a66SOJs3l3trzMpwNikK0WWU
xNS8GdzXBMfxz0wPZwQToj/womZr0zIs6i42cgrEJoQiCRYGuIihLrNpkmwL
Y/OG9gGDWV6DNmsRxWQvphfrE0jlbU/MCuRMlI6SYKeShPoPQ/XY+z+bzrNK
K7IQ4JNXPGKewk7J/mFRAU3PmoUBdQiLCiySLFIMFksoTdDQAj6SRYqtPYWW
hQVyfm96YFH+iwK0yRmjA2wjab/zfWdp2MEYm3eqwBcBtJIz1jnTWnc6n/Ln
TwcIlMTs8MnTlo2GweCeZHtK9BwMMvJyk4/Oya3RdB6gHnNocY4UY0UDlAYz
pAjFy+lAQad8x9O2PrTIw8siS1MPPEBE4VVBHD3EmKLYAqEH3cQVH6TtxfQW
HAGQpNNDn007HFTHLkn3duxD0XXnpHtxfyU49rWHfieW8GicYbPXynK7VdYK
C6rcoNWCt66SzLBsLXuWd6K98OIuVbeftjS9ZUdfW0hJZvkiorI2MHjp8nSq
VOqovnZxQBcp02tzlXVYQBf5gul21bRFQA3VEoljxlV3NUANZeBSz3rtqQsJ
K3xURPuWklovxVYq6xmKZFzUPYmeCn2gwRu7vZW42YsBDWSlxf2skrrI6RrD
+uIVvbVxkRe5C5Vq5nN5S8UbuR/FZ++zEX0RZY2pq8oeNoj7Jf5yj5bbkrZ/
pRmPvLVpkW65NvmVt3Qr6lysPdrWgQxfJplOsXhFbtY1TpH7VHeN6WY+Ncl1
xJ818fIK64T52q0NJ19ZGMrWiY9z+OScr1PApMz7SuHqrc2rE18+rUcC7mKy
mONcS5Ed9EhVnMwFOFqUUbxePQVIhpm3RtJkSExYYHzNirYG6qCBeCaVAfB5
cidqscP7LQv4efOvD5W4qrbk/ycajEI=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Kappa] = 0.001", "Text",
 CellChangeTimes->{{3.405942012803*^9, 3.405942017723*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF3Hk0Vd//OH7zPAspESKhUiKarrnIUBRFUQqZooRQGRIpmTKkiUzRIIoy
RilTyjxFGTLP8zx8X5/17j73Pq31W7/9z1133XOed637WOec5977+bzC5g76
FlQUFBRq9BQU//dKHgc2FJ979mOt0sPo/xvZpDN9ZV5NnXx/35eRbDK/P2Gf
5VXaJft/o5Z0zK86R4OZ9+/nzSShM/WN14V4lP4XrZ1UatA8lSG75u/xf0gR
Fr84hw5yK1lZ/t/oIX3J7Ngmeorr7/n9pJe7ew4bO3Iqfa/4vzFEqtoyeCHU
l+NvvDESjVgHc+gO9r/Hj5Mcfw2pr55k/Rt/khShO+dp78P89/wpkqzAanbL
C8a/3zdDyqOamtSspf8bb45kvf3t1qxF2r/x5knKjQ2W4pto/sZbJP14cPZp
uDbV33hLpBrJgmoqZ4q/8VZIAumfpjr2LJP+/nxKlTwG7B/vzpP+dzyF0gtb
rZjo1mnS/+JTKi2cV6x22jpB+t/5VEpWrRdEIpaGSP/7Pmqley+v6O542v03
Ho2Snp4RlZpn6994NEqJ8TesH/h8+xuPVskiqS/0SVNwwf/i0SlV1+XE1fpX
FvwvHr2Sk+fZpY/hvwv+F49BqSOXa2r6Y08B2buInegd/YPorR5J9KawJXqb
HSV6qx8keg+YEr3Fo4neiTJE72AhojetMNG7soXo3a5N9D67lui94R/v71RE
7+AGorfHfaL343+8L6QRvZO4id47/vF+/Y93awvR2+Uf72Ydonf4I6L3+xdE
76B6onerF9H7Qh7RO4nqTc9eLeQ9UNVK62SKvO+MPxR7cRl5b25h0+jw4wHv
Ch8rq7WP1oB3smJngN4bbvAusah47VfEBd6/eu7U5jdygvdFt9jFqUEO8HYo
zRWXpkDet39EvCyWYANvalv5NXJHWcDb8cyGu/FuTOBt+LmThyuOAbylq2fy
vMrpwFts52rg6AQNePvmczwwXU8N3uGW9NPfVSnBe0ZL08GjaYVE9g511Usy
2bII3mvODPjsdZ8F7yCxk7x83ybB2yH98LHO9WPgLWzAIDnT1AfeWn0dVnRu
HeC9N+MS5w+pOvDO8T32NuNgJniX5FLf2HO6CLzr/W4KnRFrBu/Z15TnX2t1
g/fcJIvSsxfD4J1Mmq/Hvf1JtWOXMW87wQ3MuPdzr/RNuPf0g7P7ce8WnbFj
uPfiDQ5b3Dsu8LQn7s3w8lgo7h02rh4rhXkr9F8z/Ip5azYVnZXFvNtENE2f
Yd7SNBHq7Jj3sYBRluuYN7dew7MBzNuCSu2PEeZdssUz/AvmLZd5wPcM5l3u
GcC+C/O+mdi/lgLzlqY7FptXjrztJVteG2HeLj8v5uk1Iu9c0fCsaBfkfbud
3fyVGPLmvEj03ltA9Fb0J3pzpRK9+aaI3u+DOH3asvnA25Tx1jPeH7zg/ebK
w086nTzgvUfRo9N3Zg14n+4xpsljQt6x7Nc3Twoib9bVndqSssi7Rrjr8tmD
yLtmK8fjBybIe/PB5JCYNjbwjpBsGWNlYAXv5GUH42syzOBd8FC1cuAEI3g/
fDx75KQ3PXgHbWRuL0mhBe/dHffd5GuowfvHkSuciQuU4P0+kduXW5QCvJ9s
Xd9BFbUE3l+nz3q39M6Bt84JBfoXCtPgzXzR+dPlgHHwLg6m5d6bMQjecZJt
PfPHusD7nORYoltfM3gftvE8N3egGLxT5gQFRXteF5C97Ub8+pi/14B3zHRc
3mXuDvA2jUlw3zDVA94lReoMaqYj4N11iuSAe09m1Qbg3leNi+Nx78Mzw3m4
9/xmvvpczFspamVwAvPOVTagxL1nJl+vwb25SoLEcO+2tamWTzHvL5v83Fkw
7+XRMl93zHsmWf5mH+Zt4LDeyRDzPp2/++gXzJut5xz/Tsz7UsnHrzGYtweX
rjYr5p3gVSI3HYm8uc6eP1yJeV/eS/S+zUH0fpZIQ/Du3UL01rk8SvBeoid6
79gkRPA+NUb0Zp4JnC/ehLw5qTvdLvD3gTfPF6K3o5ldIGcg8rbtdEg5FIu8
X513KvbMQN7r0l3+vC9F3ukf3ShGWrnBe9r92gaxcS7wtsy/secULfI+Yehl
dJ8fec8e8r5SvhV5J/LTiFL7Iu+cAMbTl16xgHfapY1RbXVM4L1PPXxed5kB
vMWVaRQKxJB3+NVadRld5E0tptEe54K8k52PU6+NQd5GD+ddRIJXSWRvrsHT
a0TaF8G7dY2c0O4dyFuQOf2qg88UeOecOib5p3YMvL+YHpp3PzwA3h/usD6P
HesE7/pfrjoUOxrB20LxiPkVvk/gXarB+GotXRZ4s1+ZyxM8WgfeF2aJ3iqJ
PZ/ZY/vB+6Se5xuWwxPg3XOA6M3RSvSmP0T0vvqY6P0wm+i94kr0lswkersd
I3pLqhG9naiI3h/WEr1D7ggSvJ0DVVO0MW+OkWftWZi3tXLP4U2YdwqNgGwQ
5p3v3vR8+inyXpfC6PU2CHknDinG2bch78NTxtK8Mshb7JrLvTgv5N3aQxdF
W428Jxa3JZiqIO+fbmUnxDqR97pan49dVMg7lv9uc9fNQvBetXxxv7I7G7wt
7B48Md9YD94Hdu4KyfqOvBuSe7UzZpH3hX+8b+grPO1dh7xz+HrzBbcjb/sO
jd/HVZH3j1M3VwONkLeReaPwF1vkXW/tr77oibx3hgzY7AznBG/hAusw62QO
8NYtpHJTdmMH77gS99o3z1jBu/SSsZxgOTN4K1Z4xAROMKL7uX4R5+I65C2z
ZBlgrUoH3ofLMpYabWnAuyJgVFcjnAq8qWm9BTPyKMDb3TV3vXL5MniHW4yI
CKxfAG8jGdrFKdsZ8H63ukO/NG8CvHlXlJ6sXz8C3p/GhFvP5PWAd4iZm/hw
9m/w9pZ036sxWgneZxooF7eXhYE3D9fjLCWbb+D9xuNpY1p9K3h/PlQhb7ez
B7xHnfLvr1wYBu/CoyNfXjNMgvfH2qgA3JtzeCwe9z63Lzof916RtWjAvfdt
WTdShHlHdjrR4N5zd9fz494sF5OlcO+CqL2uSpj3ZemWkFTMm3KWMl4A87bW
ePHqDuZNneT6eg7zljeZSbLEvF9tj42pw7w9yiZeqmDeBVx316Zj3vxJOQTv
GjOi92ZxordDNNH7difRm3OE6K1yhOjNW+dG8I6aoCB475cken/3JHqPnea4
TUVC3mv6H4RfkxsB7436RG/VTE2rI5O84M2wT8rPnx55jzrkJ35cj7yHJ4yL
p7cj7yvm4X3Sash7ad6M9fwJ5K10/5D8Izvkvf9pkUWNF/KOtPcgcUsi7/KX
rXXe+sh72vB0zJg78lY+IPHRLB5529+KM6/8Rg/eF+/xtZCmaMG7m+dFfLoA
8ha9peotpo68afPsXj22R95vTytJ7ZRG3vtntBP3Xp8Hb9kI4ydmP6bBO/OS
dPVrIeTdGM4p49k5BN6bV3yOXvPrRt7lnHQfjFrBe205syO/7jfwnkj6mU2z
PqSA7P3g1gBlg3wleO+l0/dWY/sN3vKmRG+RxeIw/UHkTU+l3UL/GXnnlN0y
xr0Hb790xr3lb2wMwb2FZgNScG+/fUafcG/TwdCGc5j31pHU3oeYd9J1hYlq
zPsSy80uTsx7ZVW0yBPznnwUazeMee+kq/xkjHmftjkaWoJ5X707EyiLeb9J
6ld4inl7f1lbTYd5/964W8gO806Zk7n0QAp583G9kT50DXmX+Rj0/KpA3s43
j8dqbUDex8Riq4d/Iu+nm41Srrkj71KzXMP4HchbQLtbn6G+HLybIncmRYhH
gvfVfOGXGgpV4B2qWrn1o0AbytdUn9Xs5OoF7/zNj5gOOYyCN8uq1olg9Snw
rlCO2B5njbzX7TPUa77OA97cARUOHGFrwPuppXjowSRu8I47+fTdjRwu8L7v
6NGY+YMTvMX28C4PdXKA9+XDWZqHRtjB+6RM+NP3vGzgva7h9/wmEgt4r2P8
cOq+FRN4z5WPl1CGMKD83OfYXscsOvC+wV387nc7DXh7hbwW12GkBm9x5s9X
cndQgrejz/hZ/YwVEtnb3KD8oBTtInjP0npvoTOcBe9vZUtxv5Mmwdtaw4fP
fHQUvF95+5j1hfSBd3DT4QrhnR3grZ+XpCmbWAveJavBymoB78Db00bN9kFd
EXi7bJ6Qtq1qAu+0+WMLuhN/wHso3D+TKnUQvAef9QSoDY+B93WKwwRvO6sL
63DvB0ff7MK9e8SVdXHvgPJRS4J3r9cN3Nsj7XU47n22fUMK7m1iW+pyEPNe
X0gXmYl5l22rTRXFvB8arhSEYt63En1KV4OR983PPKX2mLeNy6XCFszb/2Vs
libmbVBVU/wB8yZxdHlrY9660mUE764VL4K3TSzRu1Cd6K1iSvT2qiZ6S0UQ
vS0siN5p/kTvRQmit6fn6nNpsS7wdoggekuKmWz7umscvMt3/GyP2TMN3gf4
XnW/0ELeFU5xNJ2myJutUH8TvxPy3hazUf2IP/LeeOO5lf8j5D2pMxr48Q3y
vuj/4P10EfK2vxP942Qa8lZXuaxR2sQK3q03aDvlKZE3DefJ94lbkHfbtQ9d
a/SRdwp32zNfd+Tdt85ceToOeT/if3/Q6hsVeNvQ1Pm1TFKAd62ealSSAvJ2
iVun/SxgAbzPpR758PrnDHjffOi8r0EK8/b3LTBcGAHv7XszBoKe9IL36vHj
linK7eD98j7XW9Mf1eCdeflg/OWxZPB+suuGzqM1Jej57ToVnSHyE7xzpoRi
uLci7x+Hk+1n85C3ffsbC70tE+B98wDRm83JoQn3ztPymuzAvG2YG1lxb4ZF
9s24t9ft4AO4d2aAjgHufUQ65RzurXp/rPkE5h3/i7+hGPNmP+Gdugvzlj+2
QTcO875Y9uQ+O+bNsG2/1jXM2yXmrGAf5r1O7P5dfcyblW+4IAfzDhH9/usA
5l1/xZ17+Tby3trv8jilGXmbJNtt3iOJvNf2Py/cN428X1px/LkagbypPfMG
G3Yhbw29i6IvEpF3ucETfuWBJPCWVgitkuxC3p+HmKqSKpC3wXfu13tbkXeK
67r37OeGwNvnH+9LwhYrd2aRt1Z96Jpb9Mhb6kzEjrz1yNvP/YHu5Hbk3fj2
ka2kGvJO1nx6++wJ5M1lFZv4wA55O2Y8+1zphby3zKgVsEoib+EwlXkPfeQd
H7ZfduC//Izsfatqr/2J//Izsvd3I+3nxf/lZ2TvoepHHbv+y8/I3kbKKV+T
BJB3SN3CdX515G3fP3A2yB55P3sexcr2Xz5O9pYXK/Njvj4P3qa6/ckC/+Xj
ZG82fusXOv/l42TvdV/8vll0DIF30m5dnd++3eB9PSO6fFW/Fbznjds6M5W+
gbcHmwCV0quQArL39dOrhRW6leDtFLujqVn8N3jf6I+KZ5HrAe/JpAyTbwLD
4F3vGdFhbYe8zTcTvWevE71lO8IJ3oKWRG9jfaL3IVGid9wRord0KtE79q0K
wfvYWyWCt6gp0Zsqg+jd4n2Y4O2jT/R+fSjRKQbznrO+KseIeUsEXGxwxLzH
7nxOSJFC3lorVksW15D3wksTPo7vyPvcbv7hJxuQ90RoqDJlK/KWZZtw0LiG
vG+z+b56uRt5HwgKCxnqLwfvMIWtabrz4eAdrHLzlfGaKvBmHz1lV1SDvK9F
24icykXecxSXNh0ZQN5iDvs96SuQN4PZh4Dz1rPgbcb2gDkulge8jYYfSTRn
rAFv3vYYdY4ybvA+Px5vfvAXF3gvbk/2vDHOCd5Rb149zqRF3pm+6dlD/Mh7
h53964On2MB7v9DV3kxfFvC+p+ctvOk1E3gnhd40CatnAG/n7EsRFCt04P3l
4ubKi+LI21ZTkeGXLjV6fkfdIx12pQTvrs+JXZdJqySyt/nxDzv1QhbBO7R0
SE2qYxZ5F50ooNs5Bd5v3eRy2n3GwHtwNKrF/nk/eHc09CjQa3aC99bGnD0d
dfXgze2dJ0Jvkgfe+yqtPbmffwTvm9fPyN5wbABvObX87I74TrTeMmzXek58
ALxDJu6VtPwYA2/efQFUi8JT4J2Tm+H9ewF5h7X5EbyFi+4QvMOzgwjeP1vC
CN4p26II3rFVjwje1a2xBO+OWm2Cd1fOCYK3Y/45grfmFSuC92imLsF7sLjt
B+69p/UePe69a9vYftxbfW9TK+7dfy5XCPdO6T3Ji3ub96po495a0uqP2zDv
58tCmhcw7zZTx0Pzh5A3b1Ks7iPMu2ZtPf/BE8h7OVlxA3sq8ibR5ilzOSPv
daUGoTIvkbd+7iHTtXL/396X9xO9e/OI3rWqnIcZg5B3m8SYtVIc8r5zyTfA
9T3y5n+x9UVqOfKmsAis6P6NvCVnHo0LTHKAt1ka5fpj9Mib7URaJO9u5H13
3Jn1lhnypuGzej7pj7wVare7machb+/H9+Krm5A3j4uxsTIl8o6Lyx5N34K8
syVLukX1kXcQqyCPzPQKeI+f9D0kpIG8vUv/2PNHIe/WrVFdm/omwTtz1iv3
sCLyPpc9HLGXB3krjhfMWGV1gLd18PCb+qw68F623pK7ypoF3uL0c5ZyJp/A
O7uIdaODUSN4N/0OOE43h7xv/eO9Xkf97ZpJ5H0+57HWzrXT4H37Z/TAaOoc
eGuMPzqAe7ts+XIS92Yvk7+Ce9/ZFH4P977nujcR9xYS3JGDey+rVpYbYN5D
C1PJPJi3S5ZU0k3MO1RGymsc8/bdRRIxw7zZXR7ZVmDeXIGaEoqY99LEEG0i
5r1h05g3O+Z9P/Pyw9Ep5O3AfuxAtjry3qvb0eIaibxne+dmN/Uib3+VctL7
3cj796sbVvIcyJuvVifmchryFq+Qk4iMQd52jqIl9+w/gPfH6CNPJFqQ97iM
Uu7jj8ibeTNn91fdP+A9oJpy3qIMecuWUk3obx4H7/F/vEVbiN4i7APtYfrI
eyPreYpyS+x+brtJmNIDeY93BagqBCNvfbamCw7xyFt4eiYs6QPyvuhpEJAb
xQ7eqQ+HaCQLWcHbaPR70oM+ZvCWeXDhFj0n8rbXOPTFRRF5n7z/5VHPWeQd
oSFvYXSHBryVY41Sy95SgbeaG9+JAy0U4B3sfDXYnh55PzCdtLE5sQDetcuB
x91TZsD7e4Lg0+SFCfA+MObxi+3BCHgLxVEbX9jbC95vZXuaPQrawJtLTsXV
jLkavKkPqeX2d8WBt2RzofTasFLwvq3zS6f890/wPiiZRjX8sgu81U48+Nj0
YxC8WUQetRZeQN7PyxUiDYWR99hGq/d6o/PgLbyvn+D9KcxlsQzzdnHOX4N7
JwqZSePe5iN8yrj3kaLVI7i3TF3S2xzMW3P9upcSmHeTjfr1SMz7hlMOFw3m
XTU2ffAS5s2f+qHrF+Zds607WBPzfq9umfcO8zbhHbqzHvM+bJ60a5UOeXvt
/uKWa4S8yzW20VskI+8bXue5x+eQ94PTff5PwpC3qXjeSslO5P3KmLdYNAF5
1+tsM2NsrwJvVyuaYM+CWPC2SpIcyLYtA28expwiwbst4K3xocN1y65u8NZl
Z6p+njAE3jIuAuLXGSfAe5tkZRVNP/J+LUz0ztat/2T+YQ14d/RItkd/4wZv
aRum1ao2LvDOeflRkGGKE7xf0+STSAzI28GhztxFAHlbSdzlMjnLBt7XWwVs
ygJYwJu39F3N7rdM4K1PY2SY9JMBvN/LdNHwUNOj/dD712ZvStGCd+frvuOT
BtTgXb5d1OzcNUrwzpVIGE7WXCWRvamNpq4EPVwEb5ONHupug7Pg/XBA9qLd
vinw7incmWt3bwy8fW8w6FDn94O3PBP/JXuzTvA+l7nxnTNNA3jv6DsYNyud
D97Ge6V1p9PyC8jeH3oEmjWFG8Dbta9SOda6E7yjFItFaD/1g3fpuVFS5N0x
8E6oj7QP3jYF3iVNutMXZWbBu8ti7mWl5wJ4f7GQzca9rX501eHeC7QsY7h3
JbspE+5do2chinsXmervwb3zPpc8Msa8Lczkskox77PZ94vkMe8O17p3CZh3
rA2LGxfm7Xd/dd4T825Zes02jHn3iye4nsS8RasMYgMwbw1tx7FTmDfzytFO
Scx72PiN5the5B3oqMWVHIi891urC4bnIG8df8WpUBPkveFE4+LeuXrwPjIl
lHW1LQ+8OR+xmBRJfQRvif7P60aOIm/96zZlQiHI+8SHcyKJy8g7SnT60K5s
5K1q8jHSywh55575Pbu5BXmr8H0r4zZZRPmaY8LPC/7I28k1diHmEfKWyhld
3/gGedt1byCxfUHea1nTLdSbyPXD7SQWS1/R+SZ28B4cF75nRYm856lvczVs
Qd43ohaK1PSR980l5dx37sj7xeBeYdF4OvCOCngjf/8bDXg/VD5mTjNFhfZD
VTgOugog7/GMjB/NASvgfXsnb+73nwvgzfcq0LZSCnnL3JVZ6rk2Cd5Xd73J
VXk8Ct6Gd+0ixUl94H2x/rthXmc7eFvd9JHrYKsF7xOJg+FvHdLB20Dk4ae1
cV/Au4bXbJFiqgm8NajzA/s+/wHvwN9fjg4vDYD3s4S3uVPs4+D9LCpTPyAN
ecfqkOQ9L8+Bd8Q/3oJBcQTv6S+vp3Bv2xgLVtz7gemBTbj3RG36btx7X5rO
3TnMe79sboQl5r07yNS3DvOmKpnUUMG8I6kyit5g3szXSqoFMO+5eDeZAMxb
4sZBt6lJ5H08vZHRFPO21Dn4OQDzltNirdbFvE0YH++hw7zHXuRzJXsg78PM
8kV6D5D38hmBvV0KyLulf0NBVRPyFjG7et9htAa81W4XLZonp4H3zXv3H8+T
voJ3ZKWu9YJjM3hHaetUJ4l1gTcDL00W7YNB8I45WCO32w95B6/pTibtnUb1
Lfn2xdGW8+AtlaihfNIQeS+lfszgXoe8W8c+VWttQ97zL76MeKsgb6FfxczZ
hsg7T6VUYswGeV+6F3JXd4UNvLudAr/mibOiesUJ71VJPWbwvlNmrxjtygje
fumHnehjyf0/YySBBt7XzqW04P0ouaLnzxg1eLsnOG/U50feglqDWcXKFOA9
X+LqcK1uCby/d3x+5CQ2j7yp5QPcXKbB+y2zn3lUyTh470lKo/ywYwi8/Ujf
A7LrusCbcfDszOrYT/A2TJQvpXcpBe9ADseFrA/xBWTvwbVxXiYi1eB93Pxx
ZebnNvA2URWU4pToBe+dhR8st5uOgDeTjq9cZO4EePMEnLrdvH0GvFkqiN5P
Xmgan/FZAu8LL4jee98QvR3uEL0b64neFXJEb9F/vIv+8a4dJnpXlRK9I1OJ
3olVRO/bIUTvaw+J3hKkoMVszPtO9dE/+zFvtvfqL1Y3Ie8ww9Rvb52R90Rq
l7ZuMfKum9CJu70Vea/8mrVd+Y68/TndDZxbkPdO6qomwx3I27lwH2WdXSJ4
u1tkZki4IW9bkdT3JPF28DaYKZaxiEDeoYxHjGqZR1G9w0iL9VWNSbRfEqIf
LCcwC96v9NRVJp4sgPf+l0Rvy2cf3u7M50beW3Irrau5wJsh7ONQbDcneNuU
fmJsmucAb/VXX8TZ2ZB3BHOQf6Aa8q5sC/m0YMcC3kdVQxYvRDCBd6XRbbnG
fAbwNv/m4KDeQ+7/GSMdsTyd8o4NeX/MkPsjvBt5J0x1CoSYUYK3Pqv1qyX2
VRLZ+6m/u2DzmUXwFr2uE5yZPgvebF0MS6FUU+D9Kjfd7KLBGHj3xpWZRBzq
B2/qL5dCdAY6wLsj2jqIcW09eG/dxm5ZYZ8N3hkLlwpMPxeC9956FprRDY3g
fYC/TsptuBO8+aT45A9oD4B36bbm3Mj6MfBuV1E+Iew9Bd4f2+fSFSeQt2ab
xb75nYvgHbNVJFyicRnVn7+JJnifPPqE4N3yJ5bgvc80geCtkPmc4D306jjB
28/EhOCtb3mG4M3RZEHwriolesdYEL3f/OMtNUb05qQlelfo2wvg3l2KBn64
95Wepk7cu7FshyDubXBnki0c8/58PkBTC/PW3P+GZ54PeVePGdJtxrxJf8qo
txUh78wNfrQTgsj7/B4GuZwR5N2zlidLXQ956y7367Y2Ie9qy7L2q37IWyRH
RiFNbA687/QRvdm1NreZblkF7/MnP4dKxCDvGz4f083eIW8pmqmayBLkLe7m
MvO9BXlPFHrsZWpnB++P3MMRVxmQ97KJBnWvDPK+4vY46PhJ5B2qd0Pzizfy
thXO05N9gV3fO+2/x9XQgHe0tAsD9yIVeK/ejXfwFUXe67p1LUajVsC7admw
qqVvAbwXJD+HVysi76X839sa7kyCN3MRW2rXh1HwfmPf3mZl3Afe/OuLNM2X
28F7me3+kpxKLXjLs8993iTzFrw7slO3PdT+At7KM3tkL9Q0gbeYz8TZzTl/
wPuYs65fDtUgeO+nc3bbLjQO3g/Lr+hezkHeM6nTxV23kff2YR3jtoPIe1KT
6D0aOH4P99bxXnqOezP0fy/EvbuY9Rtx72534TpGzJu+NmfYFfM+22s91Y15
m5Wu/WWAeTvo7478hHmbn56i3o55e80oLjzCvMUtpGUZMO/gKEElJ8x7P6Xr
nyzMm+X+u/O3MO/4mt/hhzDvDfsdaZcDkHfbQJrKrkzkvaNIu2CTIfL+oxgx
FjuDvDk+zFyvkEbeCqc2ltkkp4O3cV5Zm2AW8s5iK+r139wM3i81FG0uLSPv
I8bDhx7bIe9DYsfHJx2Rt8fhwTUxW6bB2+0N0fv5sdUWDuUl8D5hP7IjfW4F
vPVe+/T07EHezJv8qQX1kPcGbsFNx88h7xs3Mo4FuiLvzyeyOP35kLd3sHLY
NIkVvJvXfN5z/gIzeHuz7hGtDWEE75LfJpdUsunB+1N+8Zm3HeT+nzFSTteQ
nigT8r6+cr0uYifytuUva2EyoQDvE8dV8ujpl8H7XQLtWboT8+BtwczJyp8y
Dd4nxrRuHl4YB289etfJM1FD4H20zPjutz3d4B0+aHrb7mMLeM+fPpY6sKYc
vA+8PJj7Vf1hAdlbVJVStUGrCrzDmsO8nv75Dd51fobDhW97wJtzMWCEs30Y
vMPO6jy44DyBnt+hjDvP/ULeQaeYvUSU58H7ONdWiXiqZfCelmMLsjKjKCR7
P7Ujehsb3yJ4ny6eFsC9TVMsxXFvzauBJ/wwb6f3nNpTmPfX9hg+c8zbM3t3
fCXm3XJ5S9k+zNvwd6tOCuatpDBRswbzZvPp/3wD8/7tNizTY4y8v2YVHr5P
h7yfvkuK0TFC3saTBbRTz5E37fuJDvc55P3c/EVBTCjytvosTHq1A3lPUBnv
836GvO9+EHq1P7sMra9FpB9SqnoK3unBNvSUH5F3FH/MhOzDNvDe0HyRPVC1
F7x9SifeT30dAe9jr7ul9aQnwTtW5SFvJsUseKcZ0ceGTS6A96br6qQPKyvg
zSVP9F7e9dBrIIgLvOnXMsUKx3OCN93ajMITsP9RS9KjaysWimIHb+nRRq6g
AnJ/QDuJZ5Ok9VIvM3if3DFaacPBBN63dKqPNCswgDfli3WLB8/Sgbc3G23v
+wByf8AYqfjs3B7xt1TgnX+iRjbyJwV424sInGejWyGRvc+VKT2ZNFwA75d3
hOZ+PZ8B70xdCpequQnwVrs4+j7m/gh4K8W9u1Ii1wveTtfyL5xJawNvAVFh
L4qZKvDOusvySKv3GXiz3ky2UZ0qBe9fLHczera2gLfao9N35Ua6wNthl6/5
fuUh8DZWC5TJKx5H/QZZuZeCrKbB27qB/0469Tx4i/+mVUyyWQJv13+8q7i1
8h3vUYL3XLPPFdxbp5c/GPceve2SjHsf8PPxxL0PnAl/fg/zvuqv9XUR837A
e6fGGvPe8C3payPmrWNvEKyOeTfMHuV7h3k/2ia3eyPm/dJi3dtAzJv7K5ve
GC3ydr+wf7kI8669Y3cnDPOmexU0ewLzvqj9jEUsDHl7NirbOsgi71OMg0kT
ycj7Ek9x1p4B5P1UzE2OWR95L9yuCjTfXgbemz/yzGefQt4fu9jyVLm7wVuk
8IJRoQfyFjqiEhY5hbx37Bir4nmNvG1iOGqkdZG33j/eA19is0RcVsG7/h/v
es1dBhJ7kPdsp4KjmS7yjlZbHxppjrzbOLxCHg2zgbeZ9jIdEy/ynhFYfXz1
APK+GLjeqteSEbzpr8b6GgbTg/eb6g/ixR9owdu3TviRfDu5P2CMlDtFezqZ
AXmrVoVuF9iBvFlUjULE3y2Bt5BFpYgQzTx4+ya8l5Q4Pg3eK1e0dA4njYM3
c1Dc++2jg+D9p07BWDusC7z5z6jyX7H7Cd7PtL8a1tiXoPq15ma15trnBWRv
Me8OTYXEavBe6zIw8VikHbzFx9kG2qx7wVtCR/Z6etwIeJMiC7bFdEyAt7Hx
NpHU0zPg/UVbdvPREuT9urDkfMP1ZfDurrz6J+Md+f7NoNQ339UXvpUKvL8F
7CR4B0jKEbzvt58MwL2tKK6uxb19Jul5GTHvZ55cUy6Y93UHyqddmLftWv+p
o5h3Oq1H8UfM+9phkWJJzLtR0+JqBObtxqeybkUGeX+mvzdc/BZ5vznCp+lP
jbzLxikVdx9D3jwXbTd/T0De0XEddU4DyNurrInv2x3kHbiiu5J8DHnHUyZ4
nhdB3nkF10XXvE0Bb+PiI9fmqGvAe6H58WKGPfJ2bpGUGmxH3nc7jt90MRsF
b56QLWKnXCfBeykwZs+s1ix4r5G6xNkoswjeS8uVx+3Or4L3QmzBq1/h5OuZ
QWnoH++ldnn/A2ac4D3IoJjg7MQB3ukXr/icZGcH79AKp7yS3azgHX764ozc
GXL9cDuJge+sTMJtRvC+feGgDVc6PXi7bOZP8GqmBe8L1sW/RihpwJvr5W6+
05JU4D3CtOfIN30K8JZl+snhNLNEIntTeDDc0Ds4D97NXxy6pB5Mg7fb29W9
DP3j4O3l3KpOeWUIvPvL+hgtebvBu2FmbdbEpRbwprh2fM2cQxl4Ox1/uvUM
TSx5fqP0kOHmmeb3VeCt9sVD85N1G3hfYLe3r2TuBe81Ru94xcxGwLv5W2x8
VcMEeMdGCydReMyAN/dQWVrvugXUT5RnLLU7eRm8k3dVl1AqUBSSvfmfEb3r
XCYtv/FSg7ffb6J384ICwbvfhOitkkf03q5G9D7CS/SOW9UgeLu+4SN4t10g
emv0yxO8Jf/xlo5pJngrtlESvKXM7Qjen14TvdcOO3uFOCFvMSt23UdrkPd9
qu/U/TbIW9VlW7qBEfLmjz78WT0FeX9v3W8X2oS8XwrZ0qnFIm8VCmnHmN3I
+1g9tdS9ROR9csefhnr2SeStHcY424y8xetMHjp8QN5XFpPnBA+soPXzqugw
tWrkfT/AfrNfL/Lu/Mc71JLDNEQVeZ9kWeNRYoS8SZrbZZYb2cA7TVfexpYC
ebcz7U9olkDeKtqqvw8eRd5eBYfWvndD3kJN2vqb4pD3cLtuYFg5NXhbPdAt
ppgk1xeOka506lE4rEfekuOlV3L8kffzzsv9kU1z4C1tdd7MaQvy1inybdJz
R94K1crvTkQOgneIVPwvToUu8N5VyvMz8l0zeLOkTffzjXwF70BZ+QeVUqng
bdgXqT/pXQPev4Son4rHtIN3wX7rzdLLyNux//X5SuNR8H4c7d5eaIK8/U72
3+FgnAVvo3+8y/7xNmskev+g2bI/05t8/2ZQklfY8Er6PfJe1/bzNO69z/C3
O8H7UNF23PudQ5k17k1b8yMe985gqf2Fe9sH1/Ph3q729UdxbxbV6ru4ty1v
8VfcW+vPy9WLmDefe+Nl3DvYJKUb9/Z7zm6Ee9ftt/qKe49FvTiJe1MEiDPg
3rMKM9VhmHf23pM7aTDvikQ5vjBp5K39IePJdh/kzZ8r/+AS5p2ik+vVg3kb
v/rO9OgU8rZXr9jadxp5n05MbXvAirzd5t3aDUuR94YJr+Dz8ci7avre9j3K
lOCdTZ3Bs6hO9mVQKnxD6XXTiBa821b17lQzIe/Lm489ZxBC3svj6bc9LZF3
SvRvxpEgFvCOOpMYeuoDub6wnRTJFKf0rY0BvOloXHbsYUDe4rS9d1NkkHeC
iV4Q/0nk/Wtw76M73sh7nsvzyYIBuT9gnOSoeFKpO2ERvI/eZt3eND0L3luW
gtSaNKbA+8ruQtnhqDHwVs6xtNCo6QfvU18E1NY7d4L39k/3Nmzd0YDqkSUN
h6r68sF7xfL11/HuPPCm2ePPMdlbD975YtcvMhzsBG822o4XFvf7wZtpJojG
3WYMvP0etvM7UU2B98G1K6uLd5F3zwFR0/xl5O1g3Kx+zn8VvMMHKK/U3Ube
y/94+7wjel9/rEvw5rI4SvD2tksieEfy+XkMY94DW8utTDBvdukG6TLMW+Qp
fZo85k0ZHFUWj3lPZEnu5cC8T0nLxXlg3lIfjL6WY95batKYojHvVk1eWjPM
e12YRQsf5q16KagtNxJ5x/5grbr+A3nPGDy6sN4Bee/ZbK+yWRB5+9TeXN3h
iLz/JJ7tEk3MB+8nL9fbv5dtAO/24ewr3DeRN++n2GehE8j7g7z6s75M5P1M
WpiZ0R150w/8UriqOQfeNqyatEESS+DdYEL0jvrHOz0gd3Dzecx7vfpEUDry
ttWmmfeS5wBv72oOaccINvA+FsZv+TufBbx7hURitXuYwDvwjvTPHDZG8Fa0
271my2568DYpsNkWbUYL3p3By38Yb1ODt0aURoFHGiV4p2x8u7ctnVxfOEaK
ymNy/U61BN6mSbqMxQZz4K2/U4S2MmEKvBf1f9JPTI+B91zq2MNrQQPgfVR2
/2zUjj/gHSAeaEP7shG8F7vaqJoHPoH3Gd8Mesux9wVk7242968SVnXg7dId
NjN/swO8hev4zXdV9IH3cobXpTTqMfBOiA+5XhA5Cd6FtpxhV9fOgnfxZz9N
tWsL4J3/+NQ2mqRl8J4tN6IzkqUoJHvvkVOo4FOjAu/Bz3fC7hjSgLf8BqI3
jQTRO1me6D2rtZbgvZglTPAukZIiePtrEr13tQpdjMC8v/9Mk6bEvCv3R3+1
xbzls2PeJ2PeTTPbzjth3rNHnXNlMe+XFxxf/IlH3jWSOyLcppC3xuXGWxUB
yPv+gU1SopLI+4bIsVPH7yPvmGTLiecxyNuKVBU+/fsDeMuF1B/7+BV5t1ZF
V839QN5jk6ylm1X7UX5uEDfJZ468HZLNpXulp8Db8s9P5RiGOfB+qJF10YNq
Cbw3XC+JdRKlKCR7vwzmD2WnoALvH22719H4UIN3SdWD6roF5D2rHOvdP4a8
K22uDwZJsYN3WdxNsWUDVvCmj71tZnuNGbxpub/mNicwgnfY3HqTQ9/J9Uft
JMMcNb4P07TgbeN2Zq24IA14B81/vhOhQQXennPb3tI6UIB3lu2VieFty+C9
GrKBs85zHrydbR81FFRNo/lYX2JohvAEeNcO1VE4dA+B92hsWvcz/27w9snZ
ZqpwrBW8bZ2aPwru+gbe9vInc8QHQwvI3gfGD0pfeVEJ3j76T9co3P4N3nFH
nfPKH/aAd8gr5yPLQ8PgfSrq+Azl4wnwPqlT2/lp7wx4yyRnJUjXzIN3gNPJ
W6Ynl8H7xo6xUjML5C2o7zu20RB5V572fnXuF/Ie/sebyTSQIlKIDryfal0h
ePOxeRC8dw16E7y9A/VccW+fsdXDBzFv2k0/qTMxb6bMHBcRzNv4ttbVYMyb
3/Lzl8WLyLuEjf3Pd8zbat3Pl7GYt/nGzO/2mHfFgtrCDsy70Gxzf+Uf5K13
xK2d7RbyZlZVEGbVRt7sIwFWcuuQN3dXuVad7H3w/sHbJxI5iLyNnhy63ZiL
vGM2eWhlFCFv0lo5k/qtI+Cd9eB4x7lK5B3YzWgtdQ9523YOWDIbLIC38aL9
A6FNK+BtfcVX5NA48t76/+Mdf2p+yXgf+XpmUPr0j3dP9cldqUms4M2gYn5R
oJIZvBm7rZPvzDKC96acy51zQgzgfTbumoDVIXJ9QjtJRLXEsN6RBrwfShYm
aERTgXdG28Bs1icK8KakFjltXEf+/6shUuKFk/aaYgvg7fyQe6eqywx4h/Dk
UemWTID3i/p3Rb0yI+D9+0ajbkBtD3i7vatOtRj+Dd6MoZ55VnJVKF8rKlrV
pHwA3plp7zIZzcvB+2WwjJ19Swt6fl+IZ4rZ3w3eQzum2zbdGgLvUsvYm+lt
4+DdaCj9XP3yNHi3lnrILU7Ogff+TPdTIsZL4K1VM9RNE7oK3sHWXwyKDlCC
d9CErlWgMDV406hTSLEb04K3Z+DLGuqt9ODdWDmwla6B/J6Cgqv5BMHb4/oZ
gnfsY6J3aCzRW8KA6P1b8hDBe0TL+poS5r0ceurJC8zbsSstUwzzPvkj997o
JuSd3C+QnuqMvB3SZ0pOFSPvJwN0T9q2Im+xk501b34gb9Vk9bbRX8hbR7Pw
bpUA8s6iEx/WDYkAb3rN53QMv5G3bcs31ZL9reB90cdlw5O7yPtnn6ZRI8Uw
eP/Z8825VnkCvH17oiqk2WbAu6K1wNp/aB68r7j7yygMLIM3925v97w1lIVk
792DszUKqdTgXRL9uGK/JS14L7GFMMbM0oG3+tS0T8dTBvB+K5yTJCjABN7Z
uQu/wo4zg/cyDfVayhuM4K39lVnfIYkevGN28gT++kEL3gKpQsWHZ8n7G+2k
0XQpihwhKvDWXlDcI3GIArwj06P6pDvI+Vc/yWlz2SnGnfPgLaS5rrrbZxq8
M6ML1T/XjoO3j0eyy37NIfAOLy2xnBnoAu9BXt4SU/4W8BaSvrz6LLsUvJ0Z
nY52LMcVkL3l6OTLDwqQ64MXSVq/SMGVTW3gXTCzvy5Jqxe8E/o78puT4f+l
lfY1aPC5Uk+Ctz27F7PJ2xnwTtiV3vr7zAJ4G/DLMFxiWwHvzsL3JdWt5P0s
GqVlo3vZ4W+owNv8H++6f7xH2YneZ6eJ3jX/eCe8WWnFvffNU/Ph3oMsDEdx
730yTHdx7983GL/i3tPeNKvZmLey4rwC7r3nR1k37j120/8k7h1ZJfgd935t
4ayEezuVRFvi3lxGu7Vwb9VaNQPc2658G1Us5m0zrP98EvN+8Ydqjw7mHbjy
OqMV8xZelh55j3knPvf3o0xB3gqP/W4mY94tilsVGzDvtl2zbFzmyDv6vZSI
HSfyDpYIfejYjrxpdWS3MGQgbx5+Hq5t7jTgLZaguz1Hhg68jYKinXTT6MHb
XZXi1tbNjOCtW8+6+w0bM3hf/HxEpGMrE3hHnD55Ss+QAbwLRM0j82/QgXdV
tk2V1HMa8BZ+foXpYSUVeMfFe6oxzFGA96uA9bbTSuT6wR4Sg/Sd/PbQBfCm
jDs2Wd05A950TOyXfshOgvcit0RADuMoeLPGprzketUL3vVXepJLdNvBu158
Ll+oqxrNx0q4fvKcTwHvQZX0wIscJeBtv3T0kJnCT/BOZ02iT3LsAu80Hel1
FgWD4M3pm/MmyGccvN2LDG5oC06Dt9GmjJ/VqXPg7XLky5UnW5fAO6aYqo03
ZBW8+ez4ab+dJe9v0CidTbR18qpB3pcNKZRfRiBv7VcGKvudkPcvDV9Z0eMM
4O00v/HyEwry9cyglNRI9C5PJXoLa58geL/3OEPwjqEiehstOBG8SyOJ3jwJ
3MFdmHfAj5JNbzHvFN6pBjfMWz8uXkke884zGkkspEfeYp2JGj+TkTefu91M
pCby3mwoccGrFnnTBso6zAcng/enfKHeyvPIu7yr/sIFD+Tdcmfb4ZZE5C34
YHG1insIvIe0BoR9vyLv2C9F527fRt5q21lDfIzmwVs5zu/cpj3L4M3nurFK
Loa8v0GtdNNf7cvlT+T9DRqlJcvT22OVacFbakLbir+QHryZlszGo70YwfvZ
TfZRDxZmtB86oj5Sv4kFvI+aWfnpXmUF705j++KdN2jBW0rRleJZEjV4N+73
28NeSQne6v4y/Qsj5PXNZlLr0wunG0nkfp120k3XtOp3IeT1kD8kVZbdGiEd
U+C9NeSxmdvOcfBWbN85v0g3CN77SvYur0v5A96vEo2W2yKbwLt1yZ/TNasI
rZ/nFwbtcn5XQPbeWvGwgyuitoDsbS9lmEAn1lFA9t7YMZWnfb0PvNkVL39i
rxkF79ebqmJiQybBOzm9peOH7Cx4mwr4vluohH5qpVnJrdMUZ1fAO26s/p3A
GHn+RKmUV7Vt/sQz8vyJSimV1vD+2z004D3sms06kEyeP9EoOVV81vB9Tgfe
F/7xFv/Hu+cf77wxove6S0H9UqMc4P3nwAWC98ITZ4L39V4fgrcWmxTBm2n/
CYL3r4lEgrfWQWaCN63aFt4zmLd6wvNiCcz7IqNrtMdz5D0zSeqRCUXeqe+P
ky4nIu9bApEG1u+Q91CZnL9MKvKOtTjUJKGIvAWY8zY5PkHeTzX6Gx5TjYE3
9YKFjWY28mZp8zlgegV55495bXSUh35LJdH7KeoPqVfB25h6dqPCJUrw1j6c
11Z3kRq86QVHs4pu0oJ3EO1KhPkn8nyJRmmt4iOxcQMm8C4NSss19mID7+vd
Z5466XKAdwl7tfFjKU7wnlULzg1x4wTvTkei9xqXHc6H15Dzp2wSzwzVwGaL
ORLZW697lxnNe3K/TS3JPnuxrp1uHLzPqR+Jcn8zAN4sXnf9ZY/+Ae+HrRTz
Td2N4O3J/rQ7Qv8zeDMKOLcx67wvIHt3XqJMr9Ijr1eOkSRFNei2+3UUkL1V
mq0Mnbv6Csjey2PDDqeFx8C7wSbT0LNqEry/76hQjPGcBe/W2G26OdsWwbtT
QzCz7NcKeHulu+4y1SDPh5ZITwZ3UGdsIHutkGoHSo+mT5HXryiUQjUGnavL
ydfjf96at+VK/suPyd4b82oXNe2ZwDvKVsRjaSsLeHOaJ5tOl5PvtzRKli86
eC7TsIN3xSjRe6CH6P2ck+htqEH0PucYQW/5lh288wJrHHBvA/mMP7j3nMo9
I9x72ffMN9xbXeT8Ddy71YzLEvfefS7rEe69+3taYzjmHXPkADM75r0z/O1I
NeatUrueSQbzFvbu53HFvI8oP2U0w7w9TtS7+WDetPGR3xMxb+7J1t5SzHuQ
3f32IObN6mF5zw/zpvdzFOQVRN6yNpvL46aRdzFL/2WJ78g7eUK+/3EC8v7Z
e7ehxwN5x/RepyjRR94qEfFWMRJs4H3CjtWtexF5mz+vqD/bxQHeEkcag7s+
c4J3zelbVDxBXOD90HVdZZMkN3j3nJJXTTrCXfj/AD6A1pY=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.4059418476140003`*^9, 3.405941862894*^9}, 
   3.405942003106*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlXV2MXVUVvp175+dK0kam+gQz5cFQSgMPWHiinZ/+T1sQwSqCMimYErE0
tZo++GSjEmN5tb9Aa/0LETCNCGoQYySaSIAHDUIaE4OhiQRiK6gU7njPPufc
u9fZ315r7XPPuXMuNpnpzL7nrLP2+vn2Wt/e9872+f277/nS/P57d82v2LRv
fu/ue3d9ecXG+/e1h+pLarUlu2u12isratHPC+0fk2/LagsLC7V6/Ev7J/MV
fd9pfqz15XXzciFSZ+MXDnz/9AsL62488t1D3/ltbQyMjejk/HXnbT+I7vn3
htnjqRwyppSz+Q+//9uv799z5q6fP/lyKoeMSXJuAHO4XHcP0Vd5D9FNugd7
cjXQeKUgaTXQeHk89tRX9j8Zjf3p83c+WvuwTg6ZRSLn4szUsUhO9CXKuQE8
uxmPfe3Uyeffmtv6yPFvP/CsKOcKYItxoA+aqxQZVwCbjQMd0fyVsokdVwHZ
iZwksGu2nIbgIzLXlTnkfFRp20R2W2z8f/xvyHwHY8PR0HAnmpcrrTzpx5qR
zKyifyPCrB564FvPRnKe2bvnTG2NH39Go/+GNBIRohEfrPKjk+Ipl4D5I7wb
Ax66Lof3k+e9uW3rI5GM96bXHYV+uU6I9ETOuZt3nIrkvDs7fbQ25felJIfM
dcrvNySnBR67ze8URgSxyrSAo0ZCC5hhOgw4W0DVNUocRfGoXBkRjmqx7gJ4
LErkCT+sIjhkHkU0mwTxscqfR1rrXPDDE3HOOBCL4A6lrOSc1X7nEGgbC7Pi
OaDylN8572xcfyK6rjW1lg3dc0DbOeCIJHSjtEquO6wQK64TyBHjIJOZzPFi
VbcuuwS4Fq2X4wAKmv6o1KLbWTBJtOQgEE/G/viFux+L7v37Jz9xOlUJRaoW
Lc+C2a/x+wfNntzbBI9nwuMsmCla6lEooLxJgv4vd9z+o+i69vUnQ5cbxs/I
Sf9dP3M8ya/DcWTXo1+Zh77kjwIyZ8a7yDUkI9F1TWCb5LrW1I3de2XVicdR
AKMoQLmC1ERuRfcmz2glehhdkuven14bMh3yKLT4LPdPBxVfyBTP37PrJ3He
3nwqFPFbYPaTIPoQhmqDyMHLC8o0mATRN+64oQMMr916y+no939t2nAiFD6f
UyYOWl+YqELXvTm35WHj1pmpI1ykETiWVUeJQ2qB5X6VyEI+rkR+Jvq0tcxz
/iRBXAVSCQUHCgQEV0jeK5/9jIGwt7ZtfVhRBSIqBOUyWm+R04knmLhuv35U
Y+Ff+uOaWISJa+3YyW9+45mLM9PHfrPnvp921Jy2wD8QVc1/jQ5ngCeGoh7h
JnI/sTWzhCB5F2fj5xpwDMTh0fglQlgwU0TZQapHlLColGb4ggtbNj4UXdf2
wxHOx8ifIvORTBuxQfWMKaIvxEmcA6qPA4zTlvDMtFFUIMgWaZdk2k0wRTNt
Q4I9pszPiTBUJPGBfDfmNx4q4t7Yse1kNPaf9TPHxIllfPeEMlMnwLLHFMyo
z4U+sTM1qNizi+2RJDTtiXnS9omwtNW2PSIyadOWcT1CsAubN5yIc2TdYR1h
edafrGKT1fQ7FyUrkkeSlVlW0b3amut02LJK/B6YtmgMmYdAfTONo3isZfmd
xLk8RTFtJ4HlGCoKjf1zbrPxWPQsbiF+ev++n0Vjf/7cHT+Opzhk1KqbOaeK
j/heaIiTFXN2EhiFKTBRiLkTMzjDmAcu7KlnLVQjY3JrikpXEtBMX4N4MxSo
CJDf2Tgb95XTXdXRokvKXqae0RIMiIVkyDjkCe32i6um8XEimbQY0iTMHI74
4QaR66jZQK0bCk9LdbYSJLnIVIekUUfXMR474ocgRPSj4BWJfm/weqFFm9aZ
SE9tDlYnUqLI9kAohZhKZA+EXGg6IvHKJDMhjtDCihb0pn8p0CY44psZDEN4
hWqR/EmPe11inmZ2AdBO9sGCIYHJjXfT8BQgARnZMsBhDibe2DFnGoy2cXDD
IpsiF0wgXtObAoGQgIS+1o7/aOztTRu6VTzoLhFsamHiQSVMMNQIyiEtnKAc
Qg0IggkkD42h5uW9xGStHLXBS8CLDJcgThvtXjMw8Xa3x+pED2m5EesnhaR2
p+KgEkkmAGwy80ThgvbC3Xu7cNj9Cc1z1B9b3u0PM/WDSsBAjATDortRYVd9
2uoEISHpwZOxF+6ef3Rh3dqjr99y08kuiroxoz3WcFCJGhM+dMRTFDt+0b1T
LhKKFQvTTRF6Cyy/Ol4d7Rcx+IeUQ2TQr/btPROp8PKdt/8QLAUsdqK2wu2r
7JBEYaVFjQPAAHNgsgxCoJpQhxAZYEe+4+oPe6zp10W7h3oATPsqMJ1J4Ccv
oWAHJSrKIM0HjIKiBxmFUH+oCGFOWhwA9roKTCyQPdGREcwKiDAKQQeyEQo6
VLyR4rizseQ2RVoYRkxUAeQMYj0I2CAQaYaBjasfQVaQdWIJyBjqWuN8tInU
2V26xugQ/0ovib6ESzpSLvVbkEC4UaOREdXxjc2Wow4ExSrJ5yEk3lzd0XSE
2pzJDLJXi7i1oY5d6r7JMHSqsaq7W5Ld+Iy+4pOMo2Ss/ZWaqObz3seAKRvg
uuzp8OhrGcgd1BNn5Vm6iPrV/WuStmgghS0Oche+vLow0YCA4B83bU9LyROw
FRqGKQX9Xi8zUtLEkSKFJFhgpIiUwXBO3TpR4i7cYguOFpsG1oM4jtED9R4k
EPiuJmdImIjoPRDSSUqBQIyhDYSGP3VzcSUjyZOsZ9j6Mz5CxQpajdGCQhjX
YVcFW+0gULMXetTDEGViOIrkDheFF8Mdkdd61XZuusbn5yEr8rRssngd8Li9
iDDm1j6OsEhoBxjlp/GcXZwgLEILhPimE5RaHk/kdHhG+JVAsQAlLgO3L/ND
AYIMVFGI3JhHnSGaa15UW+p7jA3TpPj2QLIZtquE9HXEJ3oXB/iGpl6rhG6t
3z15ciWLLCOdny4H1y0F8pjaXETzLmqgBd0rnlksyEqcOJEU7fXMIxvkDgqw
YH2wAZu8akxTpyZkKv15EH3MXgMCjaL3GiDjAcpwca+BoSEg1QTGEHCSZzDv
AUcHcErak0AmQ3sSiB3AptARUWInxJjnU0AEs22hNUUR2xZoo0ZvFLGYWyka
RbuzgSamSz1pZ0PENGQAxlD4zIwbeeQ62VBF73boqsXA3Q7tpijKTi0YoutQ
0JmXzHo9H3MQyLhjyrFmD/cyY8Yx7WF7kSnsGVp5dvtQS4g65t4oSKJxB4rS
eQTODckzfk91YcbMRnp7rGXlZHqNE2/tcQeoFPPNZdNhfz4vcsjlmrYwlq2T
tCFH3ILuRWMoXNNnRG7PjKEwNFs47TFnRyq+l655mbFW9xkk5LK1EwpXEup9
DLk1YIz56BJv2GTWZG85nDF3ebtj7Qf1vDuWyEP9IfI/mczVvfthCqjJNHNi
Pb34u2jOSQWE8ES/QDOiU3QonLWfL6Ld1/IWJarDP6imFD3MfGjNOiBCe6xy
0v/4XraBUP65Y9rtHaZrI65aK9qosPOWDA/Qy8YISi4UtWIIMX4gz5BNVvTJ
bd2xVX3Pr91HQKdTc9EkWj7DNq33CJ8WzJlcy7U4IMLEeybVe9abaYhFrZjI
+3gPgKZlsBGmeO/10tISjIkkFcKRLaJlyj82jh1dGBPMwJiH90UAKRuq7+AV
uCZWguMNjEF0dLAXGKs6x4vwnjEPOkVZNHihscXneG8TjVIqbjlYUVmOVzaU
iFuTBWOU1LNUluNlbHmfMpm1Ngo8745CQwyXph/ktM8gOtvmMdZBuyiBZ+Dz
Q5F+gSK55vAIIhTd5Y8KRFkxe3DFnHzHa7UOdxEUIQIHmZG4QDYKgh2R7wtE
2575PpSnWr4PQZGX7+OKAsaWc37o6OWtN73weFooCuHxWPhkzDMfBja9cXYa
sCmPs2OscCkQ8X/J2X1RtFGuojGwrxsozk42WaltL4NRRXN22nAujLNjTIuO
qWjhULv/ENhGIybJjeRS2DvbUMZOoz0AGrNlI3pbxdkFwVguzu6r/sBBh7L7
uPXQC2enhbEAzk42VNU3HCrL2TGmRR1eINgMPGeXmGepdXl6PKGkzQWUyovI
z32dGIAcmyllD8HbFGtRiFmgCuPiqFHIAYV+8G5NYTGqLO+W2M1gtnlbBPoI
XHQyoYDj4KjtrSwDlxgqeamWmkcw2QeIizsUz7eZMUD8m2sARFCGc3GBpFTf
ubjEKB8CRjFvNTIftHwZmGLfGDjmvYSVYOAkCyoYzn6wcoEMXKms3CELs933
siE0QucNeiHr0B/jCkKj8si6QxZO2+9DE2m7oik6ZoHUwVTRFF0sRU3R9YOO
YxBPC0SF0XGyeSpLvTHydEBUIPXGmBGdHtBiXtHUG1Me8h8xUBj1xhgKkXD9
INycpah8wu17ohUqQa41/WBTArlmG8VmZQeKPmNcUCp9xkQU8zaXvtNnTEFZ
Kn2WmAfRZ/2lygrgCsWe9XEyWUKVLT4txlI5BdFi1ACEFhsICozJksIosMf9
gIH6hCoRX0wOFUZ8yeapBMml2jcVAeMX4mQXkbxiACMXeSVPdvDoKQYwctFT
to28G+SMIpUgmzLrVRDZxAQJ8t3is0rSOpSLVZKtUG3eaDQMJogLfifOfaA4
okB5JLkSU6DiWdt6lcT9iJWgtvVi5IlYQc1Dym2tiJJ4ntC3faPdspyfI0WN
QkrwUvibAk6AoqoD1ZPE0i/6c6OPDE0vpzjdvPLWjnSyKNIHnm9htkX9fm+k
8Z1+aT/KtBQqpRTe9sWwUoCJ1SLIkkA+Vtw2eDVssfcGYpnsiI5dxeFMrns1
13K+qKyHtjhGoY0crV2rq85cIDSlUyQr7+AwEq+LCTmg7EMyMXSeyP5DB5mE
/GCwCvLcSUJWnSNIptM9RGh9ejibchXu+O054fN+aXiaQZOZw37Vq93in4/n
Fsu2poiWhYFq2H0TQ5E5UK32+YLQs3Lt8nmyaJMPXaxcy/t+Rlf3Aycr1rZS
heGnYVa1zaSqa/N3EfvEROGgPrG/vZ6R0LTt2rDXNGG3o+/dmqsuhYcqdVdA
V5RtlWiTgK4ovfrU7xhtPkK0QStZ39sVoBeqjvreSgC90Idjl1r/Ax28H/jt
VhCllO9QJc8HQos1Qi+ltZGwgoBsBwkoyJZaCLtqwDAptWYFOrhhUkpRCZ7s
wnHR1aGRcLWIqz2WdOApGC8LqsPA88xrii4xVxnFP09/PNC7Sl9PZBtvtGUX
U60Q2Y3OekHzPn+BQVU3AdkWW0xBcL3oYt1SPkPkROEVyQlfeqkcs1S25YQv
lTOlzAuFjbh3YMtxGAq0gLp3b4/v9rwVzP6zjVxjqhdlb+8Rzss1kEqeSFI4
ouo+espc+WnLmvhNqmTVs+9pdjxQF6QjMLdfRy2f+b6zj6/Hf8cj4K7akv8B
AVaJfg==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Kappa] = 0.0", "Text",
 CellChangeTimes->{{3.405942012803*^9, 3.40594204646*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF3HlUTe/7N/DmeZ4omhQaFA0qilNCoaQSEUWFFIkkQ1KJooESSSjNkUai
SIOQBkmDUponzfM8PL7r41z7vvcfz2//02q193XWOq919nnv+76uJK3PmByj
o6Gh2cpMQ/O/n9TD+HunzbNvS7Ufhf3vyKKIdPF51rYu+ff7V4quZPcT7kkh
bVWV/x2VFN6R0ezt7EL//l5HmZGWq70qLqj9X7VmSs0V/fFXKgL/zm+juCqp
8fXp8WufOP6/o5Mi+WxBUeoQ37/r/1BqU2gMDjrxapeV/u/oo6g56p0M8ub5
V2+IUh7CxxGkxP3v/GHKtX5NvcUDnP/qj1Js9op6nPZi/3f9GGVMcC67/jnr
v9eboAzQyY3tqGT+V2+Ksk9q99q3s4z/6k1TfjzQsFslzfCv3iwlit8/OsSA
7l+9Ocp9nl0NdC40/+otUByDl65r3ThP+ff2aavmdkR+8Jum/Hc+jbbiqR8C
4Q3jlP/q02rf81p2y1VhhPLf9XTaT4c3zMTP9VH+ez167abRY+1Hnnb8q8eg
HZl5K0TFo+FfPQbtmweKy3b6lPyrx6itKfcge4nondz/6jFpM/dKDffbl+f+
V49ZW8LIjYvxXGPuf/VYtEXr1Z/vCO3MpXo7DNVi3uLGrzxQ77OBnZi3+PpW
zPvlpYyfqLf5o8djqLfCoUxe1JvedhzzLi2d2YV6j994Z4d6X9pCh3l/ru3a
inoXHxHEvHcEbstCvbffXYV5t1ryKqDeFr/WY94eBsORqPeDzTqY94c/orKo
99QjR8x7pCQC8/a4d94X9bafkJxGvWVTlZpQ75OsovdQ73ahcwWo967aDOVl
iDftp/w51JuFb1EP9ZYTLk5FvcuWeDZq7iS8G5Rvz56zJLx/9V9f+vwc4a3w
IWx9y01B8NZf/9ZkabgAeCcrxp8xSuEHb7F+H/+bH/nA+1BFYWLOT17wjpV6
9Hmslwe87xWFtsnTEN5ZzIO0n2W4wJvW2l1T1ZgDvGviRF2iLrGBN6+7QwpP
FAt4r7Nf/ce9mAm8Kxn3SPWPMIB3lXmSpcUyevB2aPN9+FWXFrwPr3occ6Z2
gUL1Vvl4aKmB7Cx4J96o85e5PAneEau/LzCUjIK3CGePc8uyIfAuern525W6
bvBW/PzhteqVFvCuOnlpe/2GKvA+X3/QWXX8NXhn2BdLe7kXgPdFJXuF8tmf
4O10szhH8VAbeOt8ya9yye4B7zS+DZj3ijPqmHeM/DbMu+aHGuatXimOee80
1sC8D7FZYd4Pn8hi3pUFFpj3wfvHMG+paBEa1LtW/dFG1JurlRXzfjddnIx6
x8+JYt4TRgyY91BvpgXqbbLnz33Ue5n48UjUe+eRjwKo95srtr6o97c3fpi3
fOqds6h3m+9QKeq9b00S5i0+WrkO9a51edurgngfnXtvj3o7sLVeQr331kd8
Qr0rGk81ot6a8l8vNmUtAW+lsGUPhL4JgXcH/cd0w1ZB8JZ/+bnce0IAvAdy
ivresRHeN/IobKNihHf2j95VciqE9xdBua1H9Qhvw1MdRx5aEN4vR1bOPW3i
Am+fg9lqnCyc4J2x4YvTlXXs4L1KrTHxjzkreF+5vqN9vyczeC8NYhT7nMgI
3nt8Vh5Q/UEP3n4N3UFRM7TgfedBTwmPFA14/xnS4Vh4MAfelbR1Xr+6psA7
eYBxPFNjHLyN/V7Y3bs1DN53wrKzml71gvetZ6GRD/e1g3fX9g7R6KE68C7i
jyqXtfsM3q7JtOuKdZNyqd6/v4yfZt72A7w19W3Liz2awXuSK76Tt6kLvPdP
1zAe2DQI3pu6nmDehUMm91Hv4Pl0zPtLSSbm7aX8HvM+EW/AinqncCRg3tI6
Z3VR72XWOZj3sjDFWdR7i0SiKurNte6FI+r9aEU05r2hcHsb6v0sNkwU9bZ+
6rsP9ZbWqMK8ZU63YN4nxpzZUW+//Bk31Ds0vXcE9W4dtTmBen+ViMxEvX2q
FiJQbyvRXHrUeyjm/ivUOy3F5h3qveXUYiDqXX3/VyPqbcl/aBL17js1xIx6
G49d9+f1J7z16TwT9SMJb0GXuM/XXhHexqH5bZlFhPf4tkKagQZ+8L6fGCS6
cpgPvGcWeDQPMRLeAj2R++8JE95XX4SfL1YgvFNeukjTexPejQ1bD59N4gDv
aAWj0KYqNvA2z/5WYTjPAt5q06Kc71cS3hJzbtvkdhPeVx+peD68QHgPSRW8
Y4ogvONPznT+CVykUL2tVR0Pf26aBe+HCtoVUesI76ds5/SueY6BdxqL4RuL
H0Pg3X3X2NJpew947zxftEW2uxW8r5nOmxTy/wTvTqfVe04l54G3xa83gkfu
Z4F3GqVSqVOymrifr6hV2jjYAt60Jsf0PA3/gDfLBUfldrMh8L7Z5oJ58xt6
YN7vjK0x7/m43Zh34xlTzDv5egDmXRoruBH1VlQOwLy3dIdh3mV2DCtQ7xgZ
3Lv8sz7mLSlb+x31Xl8Xyop6a3/Sw7z7BCOvot7nrki8Qb3ZMroxb5fPweao
N9+LxlLUWyCpeDPq3eXHiXnr7Y3YjXpHr7HdiHofPF6ph3pzjNmtQr1ve+y4
gnqXPh03Rr1L7n6noN5BscwHUe8nq+XUUG+pNdIhXSKEt4S+dJrYWsL73Ijm
NzNdwjs4iLHXfz/hreasxVLoQHj767qsnL1GeLMKc21RDuElnsdsRKxOJvCA
97p1clPal7jBuz6ESSXlGSd4d/PpnxItZgfv0UcGcX4jrOCdxmvUPC1CeEcp
xi+z02UC78c7asxqHBjA2ze7O3BrCB14nzzqWpT+nga8nwQ4MW8pngfvJ97B
V8SWzYD3Uql1AzMOE+C9PVn05M/3I0Re07+UdGLZAHhL0b69L5HTCd7LRjPG
03MawXt1ussnadrv4G0z3K5tvyMEvOPE5VQGB4vBu5EhOeeGagN4J0YK/rp1
sQO8q9hDx77X9IH30TJZLn+REfBmXFZ0D/X2vVCeinpn6OaWod58y+d7UO+e
tDJm1Jv/wGNp1Ftglg3zDpNhwrznq1di3mZHzJVQ7y0VKzFvNY11mLdzqhbm
fc5rdCnq7bOv0gT1DqgqD0C9o5bvwbyvGmjRod7XVTQuoN7j5972ot6Bn7rN
Ue81FuXxqHesZWkg6l2/tXQU9abMexai3llenMftEO9dUSzqqHdn22gN6i32
cFH8NuKd5bRlfQXiPc0XK4Z6T9WXHNkzKgTeDIrVV32YCW850cZHH5Yh3sWb
346vJbx3CipUr9lKeO8uNRmxMSe8h81WcYefIrw/6uxa88OD8H6yojuIT47w
Vhw5VOphQnj7P1vFPHiZ8J5V2aZ9OJrwPlM+ebmkhBm8nSzHMzaMMYJ30fO+
gfjlhHfiQU4ZoW2E95HtMjbepwlvMS0VjQ55wrv38fGUfLdp8NZZESTxtGwc
vNluu4ZcFkO8i8R4kxv7wPs7zVmGEx4d4L16TqSCsrUBvGdv+sXZcJeAN53j
A4Yiw3u5VO+SyAzP6tZy8E5UfpEz9bIRvJ/Ts9zVfd0J3vtpcxNu8w+At2Ly
odbut4T3Qv0nzNuJthDzLr5VgHlb7j35BvV+5uFVhXov17EdRr1HFB9yod7R
2ZflUW/NT+mYd3C7QQnqvUI6mAH1/ujhRUG9daoaL6LeW1WHMO+uGuZ+1JtN
aGI16m0s3HME9RY8yo15azROJ6DerOr94qi32EtpzHuZtRkP6n2nY3P/ccRb
Sf99Oup9cYg3yhrxFjZjSilBvA+xVGSg3k2JEVrTiPep5JbHqPfS8YEM1Jvu
TEMb6q37jHdl1Enk831YcEvdVUHwLlgqbMUTLADe16qWu+nF8YP35rsSYe7Z
fOBNayCd+fobL3i/Z5ap7GvlAe/xm/ub9Qa4wfvcgqVIphAXsZ7qcnyvNIUD
vJ37TwcGn2Ajvr9tXYpo7rKAt0ODG92Zt0zgPWzqrfW7mQG87Uv8LuxipQfv
ji33UrOUaMG76fz6aqNXCxSqd4fN1h1rGGfBu8/ENIdl3yR4u2+1VuqIGwXv
etvWndcHB8H7C4VGRSuoG7xzZMSWjSu3gPcWxotMhxIrwXuCsfygekYGeBuy
S6Z7RHwEb4WnVb67/WvBO+m8wSHHmDbwPvRM8fxrul7wbtzLst193TDx/O07
UfGsaQy8t5C86UneuSRv9//De3bX/997jOR9huTdT/J2JHm3k7xPkLw7Sd6W
JO9mkvd7kvdjkncAybtkM+5deBj3rtmMe9fx4t5h3a6Y92LAN8ybayPurcpZ
jXlLxOLe3u9xb2433Dvefg7zZuZd3/R8J+Et8pJ9rsWS8Pa4ICYs7Ex4/9Ez
U9vjQ3jbnbYy9QknvD/G8jp9SCG865y8A8Y/Et4bV183O5BKeCfdkgv8UssJ
3mzjc0XraQlvvYLtdDGyhHeuSrgWnwnhHc7Ye8HjMuH9fFVV6kAU4b3+nmnP
oRI68N5TKLyyZJQGvAu/uOec0yC8T1p3qhrdmgFvky6eWPlfE+C9br+mMIs8
4W3mEiz6dXIAvHNvrKXzCusC72EF8/mNms3gveBX9qorqwK8P30NP13aE0/k
NRkW7ZPuX8B721Hu5oIrv8A7Z0PWMZnH7eBdZej49MwM4b2ygMbAIonwvsy9
o8PdYhy821oeNaLeO3NKZlFvS4e8pai3C2/QetT7gk2gCer9MKrtDOpNZ3TR
H/V21LthgnqPVPYFoN5h+2W/oN77Lg3Qot7tEwmaqPcMv50L6t3TEpCCepvZ
imLeG1ccl0K9d7U9fYd6X1tltgb1jr6mH4N6l/ZrLkW9d30PFUS9OdzUaFHv
xDs7alBv2RP9waj3I7/JymLEe5I3Jhn1fqZbPoF6Kx6+/Br1bva/lYR67zM8
fBb17pecHES9P7mVCdxgJrz1B78qvV9GeHeOZ+0eXUt456z84CC3lfDOLfvh
e9Sc8D7cUxD78BThzehv/rHcg/DOU3uYyylHeHNULp29YkJ4q9Zqqvb8zWdU
759iQ6fN/+Yzqnd6S2b857/5DJ6/yz+2qP7NZ1Rv7rD45dHLCe+XXKz7ebcR
3pVp2kHXThPeld8kQ+r/5jOqt8iVV2xv3abB230u6GrI33xG9Q4NjB9x+pvP
qN5jga1Fj/7mM6p3gPNCmenffAbrLeY8ysJ/8xnVm28heq3Q33xG9VajWOsq
77mXS/Uen96WuKKtHLyzhztviyc3gvexJxO1+/7mM6o3u8O3kSd/8xnV+2jq
ppsjkM9YtJ9w+HAI2U2AtypHAOYtz/sQ82b3SsG8076mY95KYbGYN//Ye8y7
46tiAeq9xPYG5v0mk38K9b4buaiMevfrH8S8OV2iMG/WCzGYd3R4uQjqPS9w
dS/q3XRkbyDqfU911T3UW+V4GgPq/alg+BLq/YRrpg/19jvx+DPq/XPz+yDU
28e7QQH1Hk2UrhBEvAdnmpNVEG/nq/xVqDe/ye57qLezfncH6i2VWzWLepcz
Tfii3gGlgSKo95ILEexRkYLg/VMpWqbulQB4B/fHbeP5yg/eponPrfV+84E3
/7Hka+7DvOBdIZH++DUj4X2v4XVWnzDhHbHO+aXeIS7wFkq43PXamwO8I8S9
JKVfsoG3cOgti+BqFvB+wBV0n2aBCbz5bj4sd1xFeIfOR7D+3k0P3rwu8bq7
XGnBW6Lu8Ow5yiKF6r286NQZo7uz4M375kqbfMskeAvE3d7PojwG3qL3w0ra
vYbAW4rF+JpX/B/wZux0PKG5oxW8e3yEI7qrq8E7ltss5+Sx9+CdSfOettz/
A3jv2KoylG9VA94ihbPcMoGt4K3a+Xv1mb4/4C3C0CxuETsE3qKCFS/c946B
t9SqAvUo+inw5iJ5fyN5B5C8DUjebCTvYpK3D8nbn+TNTvK+RfJmJnn7krzp
SN4eJO+F87j3RC3uPf0F9x7OxL17YnHvPyG4dykz7p3fgXu7kLxdOXHvt3S4
dx7J25Hk7Ujy1iF565O8dUneJp2JW1kDCW+5D+1HtaMIb6+aZHfXTMLb0/x7
eHIx4W30jTuro5HwFjvPX7N8lAe8A2//HDFlJrw5UovFhdQJ71N7Ug54WxHe
s3kBISM+hPfr+lflR1IJ7wGWJObyWsLbVElyyyZawvtGw4zbC1nCW8fzzWth
E8LbNnyuhXt8AbyZu0/u79tGeFd/O1VS9IDwbq7z3BzbNQre4nuFUj01CG/F
/MdG7/kIb9qFxrUur1rAezXPi3WHkqrAmyfr1FKN3DfgrT0UdsAjLB+8M/L8
9+6+9RO8154LVhtY0Qbei1d2WK737AHv4giK+odBwttE/lh+y1PC+zGv0FbG
3YR3UG805q3h54R5m/e8xLx/Nt3DvG+3WLxFvddnWFWj3voC0Zj3Q7cNmLdy
iQ3mHbkjJBj17hZ1K0G9o5ruYd5qcQo6qDdjj/Vl1Ftf9TXmHflypgH17tv8
wgj1nl//+SPqTc9aroF6154yT0G9b7i5UVDve7MumHfxwQuKqLdC1USHOuJd
emDbcdQ791SvPert0t1vjnqXrJg9gnpHV2zVRr157Gi/od50Mco2qPdYIV9L
sAnhPZyzMP/1OOGt4TAgQnuF8BYRblbXuEN4H9v+e++ZaMJbUu/rubg3hLf5
zTbRd6Hc4K0lG31ANo8TvK+V1wSFdrOD9/T5byWMvIR3tnY98/kNhLd4bhOl
9SjhLScseHnPbQbw3j7y/dWHdDrwvlNwcnBNPQ14n3glsEeNmfC2Xjhfwmc+
A96Va6U1BhMmwNuKxS+pZHoEvDXYx3X23B8Ab5YCLgVW9S6iv+X4bUnvtCbw
5uf9NTI+9h2869bVam3++Ay8GS6uLjNg+QreoYk1lFfa9eAt/Hkn/7OFdvAO
vlN7qftQH3ir3/0VE/p7GLyt1qUbv/MfB2/VA0tbGjWnwfux3/lm1FuM7S7m
bVoVj3kPPcnBvCW7v2DeHZZtTqh3/CtvzLuYpsoM9fbdkYJ50977jHlrZRbR
o94Vqyox78/vki6h3jEVi+mo974hlz7U2/hOkRHqvVvq5nvUu658TB311ql+
8QL1LnR4tRn1FjtbI4V6/3J9I4F6X9vaNIh6l2gnN2xCvI/M+/Si3uZhrHOo
N0fkyWzUe1Q48jrqPdX5cRj1vmz37RDq7Xd0ZwfqvT5hW471GwHwFrTd8Sus
hB+8U8QNJ7838YH3qfo9AixjvOC9JnSvEoWF8O43Md99YTnhbSr6tubgUS7w
/h6Sy/P1Fgd4G3B82amezgbepde/ecf+YgHv3bPVH/jpmcG75NzvKU95RvDW
7WlXHjKlB+8vR/tOWbrRgveN9C7DsB2LFKq397OJfJdHs+DNFMSoZtI7Cd4+
1wSeK2qNgfcFRykx9oAh8NZ5Zytd/u4PePc99OLwPdwK3sPD2n88F6rBO79m
pOMbcw54W1qK1Z3sycmlenPUs8fJqNeAtwNbt339pVbw3qhU7LWi9g9487Hv
K1MNHwLv+v7tB8x3joF3uIFGx5XpSfC2NZY9G5EwC97yJO8hG9w7ieTtQPKW
I3n/IXnvIXl/I3nrkbyLSN47SN5F/4f3J5L3JZL3NZJ36x3cW5/k7UjytsnG
vX+SvIt6cW+R87i3vSvufbkV91ZeinubK+Petjtx76Bbepj3NMl7vT3uHeXk
+8vOh/DWXHJjMiKc8O6R8BX4mUJ4Fz30VOIqJLzDX2Tt3lZL7R9upoy9X1Y7
VctNrLdomvKeoCW8mfNW7qqWJbxTNgne1DUhvGfGVPLSLhPeJYZ6s+LRTEQ+
p+tSDSxhAG+r1JnTc6N04D0SuDHBfjnhbdVj+ynt1gJ4VyX3bgz8NQPes6U3
X9jLE94xZ+gk9NxGwds1tl1G79EgeL//clqYRqsbvCd09Sbf/m4Gb4GuE7lt
Cz/A+wtDmP0+1jTwTjyUKnl2rBC8nSX3vf+sVgfepynLzz+fbgPvhIWrd4b3
94L3yNkQs+UWw+C9LVa+ncI2Dt6xTaqnbbKmwHvDWs6Zm3Zz4J2wzgbzDqB1
xLz3nTmHeY85emDe0ZVGmPfFdUw1qPfTyN88qLcDuwjm/cltgzfqrfFK9gPq
HbRz5STqfcY7RAn1pvt85xTq7VpjGYd663zozUW9v/70Uka9H4QyPke9W3/E
i6LeEeEvVqDeGust6VDvr+fzxlDv53TiWai3udeRaTPEu2XIxgH1fhnw/g/q
LXEoLRD1/t3MH41610Q8sEC9IwNbMG+TC9nOqHeKfuEC6u2b/uY1vwjhrWDB
+mOnIuF9afXIgOcWwlvmogdH1j7Ce0rug+yQPeHNe4/ef/cCF3ivPEv3+f0q
TvA+fpuNRt6IHbybpPI0w1xZwfuL1e7zzJHU+Z8hik7E6mSXIkbw3hyq09s2
RA/ekg8cVpgIE94OqR+O5OnQgPfEsmLFw1Vz4C3+pCVyw8pp8Nbc/VJA6MI4
eF+uZ/If+TwM3mtM/kw/WdsH3q+WPO3cV9EO3lf0Nz4W7/wF3pIm4Q0rTIvA
m3to35bO0JhcqveY6ZKe20YV4B13x+02B1MzeD+ykbhjattF7Je8/JD3qGAA
vMMPc/Q78YyC9+ixCw4huRPg3W2mM/zGcQa8n33bGVwvugDer0OWv0K9A2x+
VKDeOVzDmHfAent21HvDjIoM6r0nbtAP9VZ7s/gJ9R73Z8K8z7ZaaaDe/veb
nVFv7m1CmDeTFnsH6i21ZkgS9S6lSdqPentKy8qh3iaea3HvZE/M+/fCthuo
9zmxvinUe1DAuQH1vulrdRv1LqD4pKHedhw2nqi3g3M3px/iLfJQ7xnqfYLF
rhT11qULLEa9jy93G0K9V6iN3UK9zezYl79FvC152zHvxTH3dOUcfvD+kOpV
frKCD7yvnrrZF9nBC95aMrdZa6d5wHumLWAVNxfhfZ4i5eO/lfAeypTLnznF
Ad5nFJVn7e6zgfdg7Ib1P3NYwPuUqM6ZbZ3U+Z8hSneIfmIGF+F9nGNPm6Q6
4d12fb/oXStaIq9N5CTPcS9SqN55HaUr6o7Mgve7qvoHr9MmwTvzYw9bMN0Y
eL9Kn3Z3NB0Cb0td3s77+n/A21hy7bfdPS3gHb4Qdop7aTXx+e7ZN8rgmAXe
83y/O4QL8sA7six9RbjoT/Cu9tVMFOhvBe/G56L5Frt6iPWWzmunKqqGwPvS
pNPU2PUx8L7GYu29VGUKvG8Im/Jotc6Ct7fc1sdWQYvgPU3yfkvydiF5q5G8
x0jediTvTpK3Ncm7nuR9mOTdSPI+QPKuIXnHk7yjSN4RJO9HJO9wkrcCyZuP
5C1P8k7oxr0/8+PeoyRvmVu4t+AL3DuI5H2P5P2E5B1J8g4meXcu6b4jE0F4
B/G9SbLKILwT9iwpfvCF8G6pye8sqye8DbiWsLI1c4O31qDhlosshHdURoNb
5zrCe+Dv2733AOGdWKQ8VOBJeFtkT8spPSe8aUN/2UT8YADvkueRTzhn6cA7
yMm+9ooU4b177czKqtAF8N6wXelhavcMeCutz2UP2EB4Vx9W9Dh5exS8c/Vo
ev0yB8G7XOpk5VbzbvDeWP/+4/x0M3iLMNfpnlavBO8p64Ktbr1p4B3DXSZn
eb0QvJ8YZldrLdSC92+d69nHfreBd3C7SGWSZi94v2qcGZk2GAZv+8Pnr4nO
Ed4Vp69x6LwgvC+urgqzPTgH3svbPDkLGWjyqN5s7yww71r1EMxb96zmV9Tb
2/oh5n3VNIkR9b5x1Fsb9V7uz3AZ9f5mcgDzZjcrHUC9D5oIyKDe6bZbMO9m
ih/mzXPyew3qzWQdJoF608l6PEC9mZbyYN4GZR/cUe8LxYJtqLfn8+5i1Ptn
8vfnqPekd9YG1Fvl5TEV1Ltmcq056p2fa1CyCfE+4Fv4CfWOlB1uQL2v7uyf
Q70/9Zv5ot7Oi2v4UW8uu+wnqPdDFzUR1NvBYktn50bCmz3RmF7MiPAO79wu
YWZDeF/cXbXJ35XwXvf+8aubSwjvrpUpA2MUTvCOXfZSxsaOnZgX9B20rrjL
Ct4pQvPPKFnM4N3gN133soU6/zNEobn9lWc5G+EdteTHztvKhPd0Ra331EEa
8OY1yb9axjQP3qsP3xpJ3D9N3M+5G4/dTBgH77lxrWbr6WHwvs89G+4e0gfe
Khe35qqrdYB3j/yJ2uaUevAOvscWGdv5lehvKVt97u29x7lUb9vH19O+3vgO
3gqUiM79W5rAeyhwPbvzYid4K6ZwS2YfHiD6kavcntA0joA3D62zpHTABHhz
Drqk62nNEPNjDy9zOfTOg/fv6NANemWE90UvLcx7X5Iq5q1L8m4dz9NCvX3e
4d6F2mGYN+PG55i31/sLmPfU8ouhqHfug9uVqHeYD+490l2Oed8Txb3ZHT5g
3u2bBIZR73Mnf2PeM0ceV6Le+w+OYt5qLzv0Ue8HobaY95q2K3Sod/b8Gsxb
UmPne9S7UfQN5p3VtgHzvsAsvRL1XpS5hnlbiDkood4HTXa+Rb35SlefR71/
RTy/h3qrHde/3BPIB96jkgahktG84J3+2+iVOex//PVWjo8SD+UGb+vnyQ0B
udT5gGZKvWSm0FwXO3iPheXssedhA++fPJ9u12qwgLeFb2nh9qNM4P17sXLh
1S3qfMAQ5dnFeg2pdDrw7h1oPRf0iwa860qrDiwyLlCo3vdy2srq982Ad/fz
EZ238RPgveIRbWbI1Ah4/whfsbc1eAC85Uc3a4WrdoG3U3SWfkJSE3gvqxlf
KjL0Hbx/37qzw+rxM/DOdF0ZwMD3FbyPTJhduLutHrxvJXOactN2gPeGu4P2
+6z6wPusuF3+t8Zh8I7tMTccCRgH7xVrd9UJbpom+tcMNx7b0DcH3iPuIReT
Dam+LNphWwM3a6+kA2/l/8M75f/wPkTydpLAvS1I3jUkb2OSdxXJm/EC7p1K
8hYswb2/ZOHeW0jekw9xb/Ob4pj3cA/u/eku7p1UPYZ584V6Yt5Cxqsx77Jx
c8y7gJ0L897hOIR519HaY960FhaYt5wa7q29cTPmnV/9EPNeKnkX85bP0jGV
2Uh4d+UYOlntJrxtho4HPLAmvPMWjczC+7nAe2PHdACrEOE9cX/ui+tmwtvy
nA5953FW8F7/en7T3jvM4H3pvLBrwRtG8D7v65O6rpk6HzBEsZVV6H3KQni/
faQszalEeAe9S/0wkT4H3p6znusq6afB+8/9TQkpe8fBO7amTsQ/dhi8eQaH
ZCr6esHbwi+G6XZgO3hXrC76cePIL/A2K8nQG9T7At5JvAMv0wsTcqner+gv
REpXV4C3Teljpzr9ZvD+7GdiJRHfBd4j2iIPTjAOgrdYlYb5T6VR8O5Kets+
0zwB3pG115zF7s6At7i3z2sdygJ4nzXIuas8SXjnK4n6F34jvIOWXTRBvTUC
nc+g3qaVR/1R76wLe0xQbzmP15j3xQ/5mHffdz8a1FvqauMG1Pt3UsV51LvR
51wK6t1cXd+Negeadkih3mMLj7NQ78XHf9ai3q7NuyJR78KrZYKod6ZLGAvq
vf2+5OwtxJsSpFmBeic+2KKDej9NcJPLRLzt68V/od7xJ865od7WfR45qDf/
lauZqHeO/Pgx1FvMZf8w6n3M4dxl1Ptqm8GeLYg3y7ToAuptKJUSiHrHMTv6
brbiBW+ZlA8xLs484L3fTun6AW5u8P6TvT7nizoneD9+2TW5/gi1f7iZItFr
ohTjywre/EEcp/jSmMF7did3nEcdI3j/kjrQNEDLAN67si4KH5ajA2+5/Ly9
JSY04G1csmuZ88QcBfpb+LyCjPSmwTvXQYB+zcNx8M5dEHBl+TMM3vHTzD+/
OveB9+FCr09egh3g/WxiwtzVsR68naUkz/6w+QreLEpCRjJmkdT1C+1r4WU6
Kl++g7fJk8rMvOtN4K0lwFO+WqILvIXeeHQ7ug+Ad8kNzcWDAyPgfUJ83s/9
yQR4T6r9Yo8ymAHv5Kq56E+z8+BtsG3x7vlqmjyqt2TdeQuml1RfFm2nffP8
D70ZwHu9zMubqLfKlA3mfaB6Beadd1YB82Z2vD2BenuJK2Le/nbX7VHvR0/u
xKDe7zL2Yt5bOLdi3kfH2ExQ78yrJ0VQ798Cxv6ot05YAx3qva19+gLqredr
XI1677vE9wb1/jz3XBv1NsngpUe912daN6De1qxyuqh3W1CSQgHifWb72A/U
+26X3h/U+2HvbVoLxJvp/At/1PuWe6o06v2NzikG9b6iLhOBese+ij6Cel/V
51BFvUs9iw7f1SW8b28qvfxlP+H9YCRi7fxPLvDms48/6UBDeN9tSY6ukyG8
OQ9k/tYzJrz9vucsybxEeDPrfzKWjiK8b+SW+gUX04M3g3rVJ5pRan/hEOV6
cv2i4zLCm9bgs3O2D+E9u7G660HtFHhPy7ZbOMsS3qNLR8uNLhPeDdwMvuYP
esG7vl/SiVejHbxvhl5LDcmoA+8V8RdoOQc+gTedt97FTWuSwTtEtaxR0OsH
eO97r89sEtEM3paNcuJh84S3HQ2nerPFIHhrBrnG8x8eBW+tKDsVdY5J8NbJ
OJB78B3hva1w5y53+wXwju150vudgxa8ZZwfpFm3E96Js4GuY+8I7yKS902S
dyDJm5bk7UPyZiZ5e5O8GUjeHiTvBTXc25XkPbkL954gefeRvHtJ3ikk73CS
tzbJ+1Ic7i15E/fOJXmfJHl7krzjSd57Sd4GJO/dJG8LknccyXstyTuN5H1F
tP5WBRvhXVTbFMciTnjX83/1uXac8E5v3l/QH8gB3sr5VbMWb6j9hc0U86fd
64ubWMC7N2PyjAYL4b2M1eFF3DrCm6Fksk3gAOGt7Ooged2T8K79KZPaakqd
DximnLE1X5UbMwve/APSj8PHJ8G7mcGd6+L2MfD2LN90fW/oEHjX0EuOHP3+
B7zlXuU3iZxrBe8ft6q94lfXgHfa2dyqY0k54H1xVaZz5bYc8F5a3MxBz1UD
3nn2Vx7rH2sF70vvRGPufPwD3o0+Gba9d4fAu5e7apRLewy867dUqyoPEt4t
Li9Z9z2dBW9h3bTQS4aL4L3BjyZ4tzvh3Zz8Zm+zGT14v4o8JnZOgRG8R2jr
MG+pD/WY9yhLDubNKb8pH/UO2FCOeZ/YVYx5l0sXY94PPhxLQL3je7sw70uK
10VQ78vGP1JQ76qoPEnUW3OSNwT1Nv9Qw4p6P6xQvYp6X5xZbES9xxnD81Hv
A9YWR1DvbtHWDbaId6pd8SzqvdDio4h6X107n4p6D64Qr0O9DVjLzqLeJtGB
M6h33b0zFaj3Qc9LAqi3Zs3+p6i3M994COa9qGiJei+KnZNAvTVXuE15qPGA
9/tgWnmn+1zgLW7CfKwxhwO8m+K4Igw62cBbU0yoLpuLFbyj74vyy6ozg7cC
50rDUCtG8A4YW+PD6EsP3iVLVfOdU2nBO5PedeJjGrW/cIiikuVnH0k3B942
n0Ia3UynwDsj/q3JgZgx8N4Rnf55/fgQeF9Ze91F2r8HvHUKog7/VmgDb60X
7n5rIn6Ct138VKHWp3zwLuuV25N74k0u1dswiJfe/UEVeHvPxgvfTGwBb4ZV
95nLmP+A92kxM0k2lSHw9vG1TVVoHQXvpxWVMsZBk+D9iP1R0XntWfBu9LUw
fTi4AN7n2DYPHTaizaN61zHIZQ6uogfvuWpFN88F6v2bRXut3UEV/hom8K4X
xb1PNszLod6MHLj3g1jcu10U9z5P8m7hwL09BXDvzU0qmPf+4guYd/HINcw7
sBD3Vs0LxLwZSd6Upbh3ml4E5r20yg3z9tnen4h6V5nLY97vffwZUG95s17M
u9KxwAL1ninTkEG9B2+wp6He85bue1Dvhe24d0JvthnqXaeNe7vs18W8j4au
xby3CI3vQb3V8iR6AuW5wTtPXUZ63pQTvFVT1lo6uLGDd+Qq9Yd1Mazgrfp0
8w+9Mmr/UTMlWXA7R+Y4I3ivDDDcLi3GAN4vGMw8grfTgbe826FsmjM04K3S
9aX7t+I8eOvU1BzKvjYN3ps+dXx/8H0cvDe8GtvqLDkC3lbbmc9FtPeBt670
yoPmNzvA+xnDTe8VexrAu9/jeqLM6hLwNlKXSX1yJziX6t0TECDIU1IO3p/Z
/DYKRTWCt0X86vUmKZ3grfiW1TCMcwC8F0ZdlIdej4D3R6YTH/iPTYD3ByHz
neoCM+AdLrOj5uDHefA2FhFVomTR5FG9z8QKTn6/Swfe06WcOdZ2DOCt9prp
+hiF6suivfnggv7NJSzgrUryziB5q5C875C8FUneL0ne0iTv5yRvif/Dey3J
W4vkrULyNiR5W0nh3g4k7ziSt5cm7n38Lu6ty4F7mybg3qX1uPePSdxbmxn3
1hbGvY/I4t7fxXHvFJK38B0uzPv3G9y7WYpmB+o9dKtWNTmOE7wlerefWV7O
Dt7sqbqJtydZwZt3Ma5lSpwFvNPPPxQ/oU/tT2imxCQEmFc7MYC3Wq3yHd0w
OvA+NpZdnJZPA97PKrPZtKuo//+qj2LuU+S+fOUMeP+gLB2bcpkAb9GSQNvq
zyPgbcStn2ezdgC8fduVe5ZXdIK3jFwy34uORvBmD1j5fbnsd/COltc43lP0
ALxPFMq+XYgoBu8Svc6AAI4G8L72YXtPgG0HePe/UuOoLugj1luExFgDeUbA
Wybj8aO03HHwPsJ+VabacRq8hbJdk6dE58H7w6rfooHHafKo3pe1dzWIb6YD
b87mtIQ0QQbwPuY47KDbzwjeZxX81aoLmcHbUGzDzPHHrODtXtG6DvW2srpu
j3pb3bofg3rryuo0o95voyyFUO/ewxeNUW8e0dZA1Ht40O4L6v3jx3Na1HvP
fLYL6r1c6lY36r3PZd0R1LtO4VwY6r1b4CMF9R7Red3yHPFeafa6EPV2cukf
6Ea8jR9sebyIeGueqZ1FvW80H2ILRLz9FZWWot55c5MSqPcRL4t41PumwWEl
1Dspd+tH1Ftt9cgqzFvMZQz1Hr2zmIF6B/KluaHeN2yZN6PeKd67mE4g3jaP
bRuCzdjBu53/lBCtOyt42/g57zkTx0zkc7ort39/YwTvQ5e9CndNUvc3mim/
hm8tZInTgff+k0EaMvo04J2Yr9SxpoWav/5QYlK1D7AqT4N3ZIRRWYfXOHg/
DbTUKagcBm+F2V/2m3b0gbda3ZTJRE87eO93VLhgKVwP3qf2/vCPzCoC77Jv
tTsH56Nyqd49h8WFDZZT+4NnKUui2vR/1TaBN8eoqdarnV3gTSeotnc2YQC8
fZZxqD2jHwXvgDXz+YXpE+AdsmnAsPvoDHiH7m6qY+ddAO9va7vTlzRT9zcY
tE3eNl9MfEMH3lXadZs17zCA976vFQxlx5nA+6dxcbHlZhbwPvSr4O6QIBt4
N1i/2+fVzw7ey8Jx7yw+3FvsNu4dRot7613CveOGcG9WO9ybPxf33pqMez9/
gnuf9ce9uSdw77lq3HuJLe4dSMG9X4rWYd777HDv60m4N+cU7k0vgnuPi+Le
Y4q49zgF9+Yzxr35lXDvsCzcW3kL7h1YjHtzmOLeCfW4N5st7r0yr1qyRYEN
vOUzXlgY7WMB78UA15AcdyZifY21pVo+ngG8XxzRZnlUTgfekdNZO1mmaMB7
1aGRqT5tav9gJ8XZqOzU16AZ8D4u2sgV1zoB3h9Xudl4qYwS+fxkQ1AOyyB4
xyVbe1x43gXey92PBK01aAZvV5rAmO/1FeDdJZS8eslMAngfMErwC934BbzN
nkpM1x34Bd5D2WkCqn7t4J147NTg5T+94P07WF28JXoYvA0r2pIYTMfB2+5P
rIYM3TR4y22vztmVNgfe6gpx0errqPsb9Nrr626d+MpMXf9k0L5kX6di0UQP
3g0v13X1ZTKCd5udYK57IDN4L7IIz3AfZwVvR6tr26I2UX1ZtBO3lfKqCnKC
d1LPbjHUO6TTxxz1bpgpvod6Mzg6fUa9WZgkMG/2Q683oN6qCmyYd9cSQ8x7
8+qD6bGI9+m5um2o95Ewdsy7nDv/HOrNNbeghHq3nUrwQr0vMOcLciPeX6c4
YlBvSsCWBdQ7SaxQCPVmzCpzuIJ4Tz/RW4V6Z3teTUW93/k90UK9m/fsKUe9
L6b8Tka99QV6L6Dey0P81VDvFdaruPsR78I3yh9RbwtlCQFexNuw7fle1HuY
00gA9b6yxrNA2Z0RvBujfeci4+jB22nZXTXuclrw/rFybcvMAHV9s46yRnCz
2U8KdV6nmZJFb/g14y51PaSNUjJiseluyxh4i7Tap51SHgZvmajRncFMveCd
5cGrsiuhDbyXvbNUYwmpBW/dEVXOseSP4H1bPT5mT0hGLtV7G++AedSzylyq
d4Lcga1L17bkUr1tDTQPWQV0g/d6R9Hzcb2D4L2+aPHTRMwoeIvXDRmL7J0E
b6+elt+b6GG+Vttp9sfJo+kL4M3M1Hq5YB1tHnx/B/7S3stCn0f1bhCoZOps
YgBv14iSUtc3TODNJFMYzHqHBbx/pr43Dz/OBt5bNrwWU9jMAd7V+S/bPwhy
gffKnXHP9/Rzg/fhk0YaZ1t5wNuF5P2U5G1F8r5M8n4tgHtbkLyDSN5JLbh3
/DPc2+Ya7r31Le6dP4B7Bxrg3k18uHclydud5K1H8k4lefuQvKdJ3gkkbyOS
90eSd4ow7h1L8jYkeS9Nw73NSd6/SN7XSN5eJO+Dssn2uwSo+SmL0rQ0p3H1
sSkK1XsVS6kJQyZ13qaSUjz563Mz0zB4D3ytdLmc0gPelc+HD6sYt4H3bR5x
/9qOn+C9987rtyEmBeDdPRxryG2YmUv13p2nQP/DiLpeOUSRpb0kvO5mSy7V
W1vKQsm1vTuX6j0Z8VTaSnIIvCVe3Un1+j4K3qX5Hlpx1ybBu6z6bNFXxVnw
Vu+y3tv/ewG83YZlnXy30+ZRvY96r1ATEaN6LVAkOJfNvRiH/UVt2/v8BZvK
mPKo3lOiHL7lMSzgfSSOYfdRNzbwVlg7zz9qygHeKW/G67zlucA7UXzSyI+W
B7ybbUaV9/bzgLdfwqCgaB0veN/q653qKOQDbyGl7vrkVH7wrjjf/sH1sQB4
LyF5s5C82Zhx74Vx3Pt6Pu49Go97l7Lj3vxuuHcpWxzmvbIQ995Ih3trSePe
stG4txTJW+ET7r2hBvde1417S83h3k9J3lYk7xiSt6QY7p1G8r5L8mbJwr2X
SODeB2xx73CSdyPJW5Tkbenyn/f/A37N420=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.405942037803*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:0434\:0431\:043e\:0440 \:043f\:0430\:0440\:0430\:043c\:0435\
\:0442\:0440\:043e\:0432 \:044d\:043a\:0441\:043f\:043e\:043d\:0435\:043d\
\:0446\:0438\:0430\:043b\:044c\:043d\:043e\:0433\:043e \:0437\:0430\:0442\
\:0443\:0445\:0430\:043d\:0438\:044f\
\>", "Subsubsection",
 CellChangeTimes->{{3.4059425844849997`*^9, 3.4059425942980003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"linc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"R", ",", 
       RowBox[{"GetMainIncrement", "[", 
        RowBox[{"100", ",", "0", ",", "1", ",", "R", ",", "2"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"R", ",", "1", ",", "20001", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"linc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"(", 
         RowBox[{"GetMainIncrement", "[", 
          RowBox[{"n", ",", "0", ",", "1", ",", "1000", ",", "2"}], "]"}], 
         ")"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "10", ",", "250", ",", "10"}], "}"}]}], "]"}]}], 
   ";"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gr", "=", 
   RowBox[{"PrintRange", "[", 
    RowBox[{"Last", "/@", "linc"}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"!", 
     RowBox[{"NumericQ", "[", "E", "]"}]}], ",", 
    RowBox[{"Remove", "[", "E", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cutout", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ltest", "=", 
   RowBox[{"Last", "/@", 
    RowBox[{"Drop", "[", 
     RowBox[{"linc", ",", "cutout"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"lna\[Lambda]", ",", "\[Lambda]"}], "}"}], "=", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"-", 
         RowBox[{"dif", "[", "ltest", "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}], ",", "x"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["E", "lna\[Lambda]"]}], "/", "\[Lambda]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"{", 
    RowBox[{"a", ",", "\[Lambda]"}], "}"}], "]"}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ListPlot", "[", 
   RowBox[{"ltest", "-", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox["E", 
        RowBox[{"\[Lambda]", " ", "x"}]]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", 
        RowBox[{"Length", "[", "ltest", "]"}]}], "}"}]}], "]"}]}], "]"}], 
  ";"}]], "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \
\:043e\:0442 \:0442\:043e\:0440\:043e\:0438\:0434\:0430\:043b\:044c\:043d\
\:043e\:0441\:0442\:0438", "Subsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linc\[Kappa]", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"GetIncrementsM", "[", 
      RowBox[{"mat", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Kappa]", "\[Rule]", "kval"}], ",", 
         RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
         RowBox[{"G", "\[Rule]", "4"}], ",", 
         RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
         RowBox[{"Re", "\[Rule]", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"kval", ",", "0", ",", "1", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.407896531118*^9, 3.407896537219*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "1", ",", "0.01"}], "]"}], ",", 
      RowBox[{
       RowBox[{"Transpose", "[", "linc\[Kappa]", "]"}], 
       "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], "]"}],
    "//", "Re"}], "]"}]], "Input",
 CellChangeTimes->{
  3.3914128555657997`*^9, {3.4078960249700003`*^9, 3.4078960255629997`*^9}, {
   3.407896550877*^9, 3.407896551049*^9}, 3.407897984189*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Quadratic", "[", "l_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"f", ",", "tmp"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "=", 
      RowBox[{"Fit", "[", 
       RowBox[{
        RowBox[{"Chop", "[", "l", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "k", ",", 
          SuperscriptBox["k", "2"]}], "}"}], ",", "k"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tmp", "=", 
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"k", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"f", "\[Equal]", "0"}], ",", "k"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "\[Element]", "Reals"}], "\[And]", 
           RowBox[{"0", "\[LessEqual]", "#", "<", "1"}]}], ")"}], "&"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "tmp", "]"}], ">", "0"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Coefficient", "[", 
           RowBox[{"f", ",", 
            SuperscriptBox["k", "2"]}], "]"}], ",", "tmp"}], "}"}], ",", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"f", ",", 
          SuperscriptBox["k", "2"]}], "]"}]}], "]"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.407897500934*^9, 3.40789758494*^9}, {
  3.4078976705959997`*^9, 3.407897672285*^9}, {3.407897741601*^9, 
  3.407897758604*^9}, {3.407897817299*^9, 3.407897834098*^9}, {
  3.40789786863*^9, 3.407897882273*^9}, {3.4078984457320004`*^9, 
  3.4078984912799997`*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "0.1", ",", "0.01"}], "]"}], ",", "#"}], "}"}], 
         "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "linc\[Kappa]", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{3.3914128525008*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"GetIncrementsM", "[", 
    RowBox[{"mat", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Kappa]", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
       RowBox[{"G", "\[Rule]", "4"}], ",", 
       RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
       RowBox[{"Re", "\[Rule]", "1000"}]}], "}"}]}], "]"}], ";"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.3918669947102003`*^9, 3.3918670365532*^9}, 
   3.3918671272841997`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.04600000000000001`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.3918670372032003`*^9, 3.3918671276122*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ProgressIndicator", "[", 
  RowBox[{
   RowBox[{"Dynamic", "[", "k1", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918673854652*^9, 3.3918673979812*^9}, 
   3.3918676154412003`*^9, 3.3918679632042*^9}],

Cell[CellGroupData[{

Cell["\[Omega] = 0, G=4", "Subsubsection",
 CellChangeTimes->{{3.39193441062*^9, 3.3919344113900003`*^9}, {
  3.403841391001*^9, 3.403841395659*^9}}],

Cell[CellGroupData[{

Cell["Re=1", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "1"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.01"}], ";"}]], "Input",
 CellChangeTimes->{{3.407896569236*^9, 3.407896572324*^9}, {3.407898217191*^9,
   3.407898222105*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe1", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "1"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, 3.3918679703932*^9, 3.407895165237*^9, 
   3.407895265352*^9, 3.4078965761429996`*^9, 3.407898227981*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe1"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, {
   3.407895144507*^9, 3.4078951467320004`*^9}, {3.407896583791*^9, 
   3.407896603865*^9}, 3.407898232032*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9kglQlVUYhsFdNEyROednwAtXvYCgghYj0PXVQYkhICW6bgiDQmgaW1ou
aLighCxlYmZKBMi4KyChDtYBlISgQMQrYMgOei8gssSAOnFv5/TN/PPP+Zfv
e9/3+aw2hfuGjDEwMAgZvXR3UczOPWbEirC9M6++37TnMBTGfR1T5OJ8Ai2W
RKYcPd+cFatZfTMVV+4aKZL/f5+JfMeg14azCTv9g64uIP6zznMps8X3V7FO
dcHScw5h2tW6J9lYHt0RJpsr/r8BjWR13FRBmJE6I0JplA+/l8YJ9tai3y0E
OmcGBNsQZuufXDRgUwDFNuOpd2xF/18Rpsw76WRHWObo3+oMhg2fuhhW2Yt5
hbA+sNsnYQFhi/VVjJnFRw9scRDz72KPJvdsyCLCigdsRifcQ+Cr2KxD7wg9
vyN+wm8/FTkR5qsfeB8fN6xNlDsLfaUw6oj9PMOVsKY9uoZlqK69rlq5VOgt
R19QtOuk5YRF6uRFVEBqL1Jo3YT+P7F/3kmLXnfC/qNRiR3jMZd4Cj+VuDhZ
6RbgTZiHfkAVqizd95WsEv6qsGCRe+2HfoTppvknP0BidcDG4TXCbzX6f2yf
VrKBML0ddTXsHLf+kxMo/D9Ew/Yss8LNhMl0cmbVYEh2POZFqMijBkeOfeSw
fDthoZ/o6hGW9K9wzI0Q+agRJ+uLd99JmK7bzKtqnKkwXzmyW+T1GObv5YRW
7SdsUNdu4DF2pT4cvn9I5FeLP47VTGiOI2ypvmEdJh9wOmGeJPKsw3T785d2
fUeYXl5sPZLHG6kGT4l8n8B659YzKamEVZTr6gnORhvGqTJF3n9DanCWO18k
zFQvsAFl32ftUF4X+TegSDHx682/EKZv5/8U+Y9Wbr1UIHg0otXhS5lpsfDT
iG6b2ry0UsGnEcvCHzj5VAp/jRh3ufeyhVrwakJus1Y+rUH4bUL2kbQMeZvg
14S2UmOXtVrhvxmnSwJ6r/UJns04X1b/0HZE5NGM3k39PffGUM63BYa3nX0O
G1GeTwvcogNGgmdQzrsFb3s4jd1iRnlerbCNvRGZKKecfyvCHmh8a+ZRnl8r
Ov+amovFlO9DGwYjQlLLXSnPsw2ubwKtoldQvh9tKJEd9PDxpjzfdkzo22bp
pqJ8X0bPJuq89YGU592OpLQU05QtlO9PB155fOv1MpLy/DuQsawsNGov5fvU
AV9v1Q7TWMp5dEJ5O/Cr+iTKeXTCZ8Wck3dPUc6jEw5O/fcq0ynn0YlLCx3N
Da5QzuMZVNbeWb75lPN4BpsvSiPvF1LO4xkm7ns3Iaicch7P4Vw3f+wsNWXf
6Hk8h5fJhtbXTZTzeI6ocxFKwy7BQ4OFRXbmNkOChwZ9Pr5JUWMlzkMDu/PZ
PzcaS5yHFjkxFsFRZhLnocWdp2Et1gqJ89Di7LWD8w0XSZxHF+SVS1a9UUqc
RxeGK6LWyTwlzqMLI2zGmmCVxHl0I81kWFWxSeI8ujHdb1Lo+nCJ8+jG3nFm
KVOiJc6jBzVeE3sa4yTOowdmr9MP1qVInEcPPjC5tXEoXeI8XiCm4K0kl+sS
+xfXqPl4
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -6.4},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, 3.3918679807111998`*^9, {3.407895144924*^9, 
   3.4078951476219997`*^9}, 3.407895180034*^9, 3.4078966048310003`*^9, 
   3.407896674898*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNWnuYVVUVP3PPvTMDhOCDh4k2+EQDRQUEEbEQ1MxnGZKYDWQNWII4pulX
Sn7KV0YkvjBTFBUVKNAMKiFKSqBSMkP4AD8C01E/EIUQSXOa31pn7332mbXu
Pnfsj5mPe7lnn/Vba+31Po9z6hsbLv9WfeOE8fV1Z0ypn9wwYfzVdaMmTWlZ
iquiqKohiqJ1dRF+N7f8TL6aW/41T8AXVtzvHvRfnBA18wff56XO0+lWqxnU
EHwXsBLz2cic5bWWv5MyJKXIE5uQZqlij4pODM5JQusFjaSob4bQLQTptZa/
krCzQTJptSB1gExalJcVxgr1YEFeLJPGFe9b2szAMurRajmCdr3bmkpdlysg
Ktt3yUb4kHayVadRuQ26PP9YvuScLfXfuGFbltzbJW1S2VtbDV6OIKNmW4K2
xltu+Zy25oXXllzTuJjWpWJVpbvVFd1q+8sVR8m7A/2zBesvlQurVKxratq5
Zvy4BV137dprz5UpofR9Op8AZuWEhkV9tmzZEdXmw8AkZ65etZWOQpgRfGLG
HTOfmzx/3t/pqEMA81k+0fDkorX3TP/RCjrqGMB8hk8MXvuPN5ZPuvKXtXv3
fhh1Ysy++I8cPRpfZZzWWVjbp53TtSddPg5dksVwHAKSCkxJpRPdd0g72o5E
1971685rC2+4/jfnr3h2c9oteV0wPOfaqTnpuI7H0+6dtfq6Rx9ZQ0fVlalE
38P4xMXLlm56bOpNS+moSwBzCp/wSkrXFMYN30OZEoUYsdtz+/bdXHXKcD+Z
T3gFeL8AZojLETiJivD++TAopCiodBTCJI0fBRuFm44OCGB4tIgRONCNjrqJ
1kp8igzHzsmu3QPcBwoW7hHADHDWshWlZz6M1+JCmBP5hNfiDgxgTuATiGnE
Nh19UrTW8ULkHhTg3p9PmPmFLNwrgDmOTyAOYS0aJg4OYI7lE/AGMPBOUuR0
TD/BK5/Kh/EKUxrjrNVXiPa6APdP46tw0+wH/npogPIYPuENJiHM0YL/DmOM
m/OkC3M39kls+/AJBCnMQi4+nLGMyXVFEWvsj3I5itpH0XBEwim2Klo1Tf31
JVYm8kghxY8suyN3ZUAEJRsFbF+qrRiMKS6PSrGKNeWKmnKHC1HbJ+XFDJ+K
Nn6Y422rOkcNT9duno/LhkTCB1GGaKOjowPReaiQL8cEML1tvvQVc5Dzze8e
fQM8OZvjry5ZvH72tFt/T0f9AphDhMw6NoA5WEib4wKYXgKmfwBzkJA/x4vW
4qrv190TAtwPdKkC7hTfJwYwPYWcGBDA9HAYyKGoHxjAdBcwgwKYbgLmJNFa
Bwi5MjjAfX8BMySA2U/AnBzA7CtghgYwXQXMKQFMFwEzLIDZR8CcKlq4s0A5
PMD9EwLmtACmk4Dhi/hAX4xdvxHYdhTY8v2Esl0kI0Nl30FgPyKB5e+L0l1b
tfXUCiJPL7sjtfu4DlkSmI5MMSVwrcZHUrNa4Dgq5U9xu5ozWrOXFD6DUa5J
ZgYCiU9R4HNmIFSTPaM82QuDswKYgsOgpGEUjz4nJlyVT0nF7+wAdzcmEfnn
dfKPHDm402XmOTr5f3nNXJtRlzhXJ//QkYM7zWxlnkR9wGswoO2K52eN8h9H
BA8R0QU6z728hsnBXutcqJO/z2sYTuyg8QWdfA+vYdixs8wXdfL3eA2cAaGj
i3Tyf7tgxASDPUSjs/bY5UcsjXYX6zx3unCCBylYx+jk7wrh9GWd/B0/Piic
LtHJd/gOp/gYq5O/7XxpXX+pTr6d13ARDYuT67+SNd82JsKEa6+0L9N5vuVb
m4biep38TT956ep0HJPrXcweSdXuDWdhzGm4+xSNZ45Kuc/bTZp8Z1Bufy1h
8v/vXa/zGgyIvCRfXt62fVDbepXPIgvttffXU/wquqZ71bkNytFtm4aU2zIs
8u55q0smWJhyL3mcn7dJbeE1uN3m40Q9/v7JaygKNsGu0Mk38xpqEwoOZcw3
sxnziksBEFEhu1LnucmvIFSfJunkG90GEd+0wck6+QYXRrZlXKWTr2ffQHdE
CT74PUVHrOM1WA4CKOEbsyZ52VeakvIanedaX2nyyrd18pec0jC4UfpaHcE3
Ge1FI9n8Ozr5i7yG6mSD6nqd/G8u1WwZviFrkhec3cCTUui7Os/neQ1zkLXg
93Rybp1U2q0Fb9TJ/+znMxX6qTr5aufOdZde8gTl6fd18lVOGXtn6mad/Dln
GavMLVnz/YmJIBr2IBVu1Xn+kdfACzxJhWk6+bN+TtKjkx8wefm2pNalP/Aa
WrP13w+Zo1LOK5jwlzMp3IdGjg9+35Zg8jenCmT+zk9pmr2mt3lD1KKeYZYo
mHZ4/nGKZarn51LxGT/LqRD/JOXFtl9S/dZFtPXm7QzI26h+zdJM/iMyUbRm
6kG5xIUQso6E3qmT/8oJQMiboLgrm0lP+2wpk+7R2T4ls52lI54UBPxUJ1/I
AuC1tID7dMQvfG+QgPt18gUswMzgxvIPZA0zj+lwDjTG0Q/qnJ/wixKVjTk6
+WPOlNgldotdP6wj5vIamgVMSUn3qE7+CAswOYqGBFPO1RFzfJVMt3tcRzwk
qDQva8rZsiLzdbb3y4r8XEfc59wFwxtlFuoIDsIi2jqo4WRotUhHzHKhg7aK
7o4q9ZSOuNvtA3MJdo8e/nTWQnc67VGnNo++aC7Gn8U65zsYASpQAwX0Eh1x
u79f6AO9+FlzqsRmX8JL/moEljOYFFuCi2AQhDBX3uRFJXHul9Y8ztN9U+OD
8FmWaCT0NIlzbDcllfHbnAxobpyzXNe+kDFNooTrYTxU0DtliFuwhL25/aeG
hwraWIYlnI3AXpFi2fZOdovMnMer3M3sZpnLSj0Wp/qmN4jVOuJGF2oIBmPZ
v2QziYfoImZ60Ji7h8/rnHmULyF7TDbhOoLG/DU67DqGIYVQOgBDStHY8qIO
4wuZEoIZtmq64LyHUa9oJH1JhzW6bSHT8IHBXtYRfJlXQkmDAAjCtmhuWJ+1
Gl9xlpC82ASIsSnSaoMugy9+qyEDpoNWKC34DXNu0pETW5sBgkm7zTrsGywQ
ekEIhBlTQOAWHck3T0qIGZjBCKRbcP/SYeOcYdC2ALO3EZt02GVOT9Ma8cFv
rL2Ztf9YZ0hzKxaiIBKit+mSxjhJ5sbfjrPPmg2jYhDZoSO/5MsEEjKBhJV2
6ki+41uNUDc3qIxMIHfrSL5dXY3cMkOVSRxo+76O5Jv0NdAWxjdBYwYtytYP
smblxww1OGkuP6GouVtM4f2RLpMf6dSYfQIGOGRCewpWoizzgnryZi1EQW+6
+VbAnvmmKtb4zWPQVet8+BFlLWQiiqALuJi0hn7Qk4iTt32zLT3ntSo/EO4A
reATTBaoos3Dh90LAyImoTUVOkLw09GKG2ZGLD+B74A0RsGGv7AxpA2MjiCD
KvQoiBDJa3h5Z4Fg7+aXLDrCU2bfpjftGTniZ7ABvI69IyeJQw9966SWamR+
+6UTIhM7gjCEA4RAGNxqdoyUcsZOXkRr0yhBr55EnY1QmNh4F2aGh03PxDpi
CnR0n5M49E4Jb/vQwe9SdMGewD6tCjwO8dh/Wh0Y3nifSjZxSl4hyjumJA+3
EdhGblSg76KRbz4FCI2KiHeogQ/igJdLRhuEAvBUR0hG65dhzPQaFek7hncN
yxYK+kZ8W7pEtJFhNSJFY645yYbou9WbHkWmZK+lKUMPass8emxP56Oq/wGH
t15W\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, 3.3918679915962*^9, {
   3.407898058804*^9, 3.407898059625*^9}, 3.40789823571*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF2Xk4VO3/B3BKklakmbFTtpgZWpQzObcKSYmERFmKUJJWayFEWVsseUqI
EhVlaVOp8FDqQbJTIkVaVY+K+ur5Xedzus8/v/OP621m7nPfn/e5rtc11yhv
3G7lNkZISOjTWCGh33+pK3S4Zd82e6OywOmXlnUFhKO0tH837YB8HAnFBqju
G83XFCLerL6WhsjqkFsJ8HoWEifMtS+M5tQTv6/zyKtx0c5/4P2X0F3i7/jv
o3lg9e//XEar/fZHcB2ozxehoslTrT1Gs3jTGR8D8atIpxoN5zpQ611HFiUf
938ZzZrr4+990ShFLsJKHcvWU+vfRlM7nrEyR3PW6KebzpShqU7OOiIbqPvd
RTMc+9W9R/Pc/677KM3s+a9nG6j7l6MbIrevr3M0Krv/RWP0DhUovIC9ts2R
2s/f6EZYWourk1GZ1X83rEIBx2cs/epE7a8a5aQ7J8Y7G5V1Bfxe8AH68nR3
vY4Ltd8atPXYpuGW0bzj9/Z8HqFhTRvp6I3U/h+jEycOKRptMir7vzZq0SVT
O/lxrtR5alHoDb7E49Fs+t8N6pDr0sSRNDfqfHWooGTWS9/NRmW/77Y+vh4t
lkp4YOdOnfcJKtI6XbDYw6jsv+M0PUGuK/ipczyp8zeg2tY5h7W2GJUp/t6O
wlPk+K0gTHsrNY+nKEax4tB8L6My982/r0ZkVpB22mQbNZ8mdDk+pMrJ26js
92rTLzWhrSVl40O3U/NqRutu/O2c62NU9vX3cl+a0U6naU1tO6j5taDrLHVv
6V1GZeR/C7aikJDzmmt3U/NsRZKTTCZn7DEq+297EW2od+lNucG91Hzb0SyL
JgdzP6OyRzW/r3a0L873cb4/Ne8OJDwQ6ScTaFQm/d8GO5GY9RjH2CBq/p2o
RPHdAbH9RmX/Lbf+GWrf5/QmOpjq4zmyb977FyuUOs9zZKznnJx3gOrnOVI6
YdW9LJw633N0zCE+bCCC6qsLiYe5BJ2IpM7bhbpl5etXHaL660LbohUOTYqm
zv8CabRWZ9fHUH2+QKfHHNbOiKPm8QJ5GdQq+yVQ/XYjicVSh9cepebTjRJj
Hnui41Tf3cgxL7SCn0TNqwc988zP0Eih+u9BPjIdY2anUvPrQVo1R97OPUk9
Dy9RSoTNZpM0ap4vUbdfwQ6XdOr5eImWL5w9PSKTmm8v8uoztbqcRT0vveja
rgSd3rPUvHuRb0lo4czz1PPzCgkunXjmmUfN/xXyzLG8fu0i9Ty9Qiu3cYyn
FVB9vEbntzpH+lyh+niNVLoPh7cUUX28Rv3TvhquuEr18Rol2X0tq7hO9dGH
An0axZaXUn30oYSYRrmnt6k++lBolJbwlrtUH/1oC/vn9fHlRmUJ//XRj5w/
e664VEn10Y8+jN93fUM11ccbNCtbT2xGDdXHG5R+9aCg6THVxxuU+m3l2ow6
qo8BpMC1c9rdQPUxgC7aua21bKL6GED/jFVcOr+V6uMtig2SU5vZQfXxFlnJ
d42VeU718RatSG57xumm+niHPix1u6XSS/XxDq33u3t6Xh/VxzuU3SV32GKA
6uM9utcTE7zrPdXHe9QvMjUs/RPVx3skbxWV3PiF6uMDSu4ovyP9jcpCQs0D
lbv+9CSB4YnyCtyT2r9xTzL1cU/kGZ6ELsQ9GfLFPdnM8OR7Fe7Jp2LcE1OG
J1ntuCcNjrgnYRtwT/YyPIlkeGLE8MSB4cl4hiehDE/yGZ6MZXgyxPAkmOHJ
DIYncxmeiP8/nggzPBmcjXvy3Az35HEL7slqhideDE+q83FPWAxPJhXjnlgw
PGl3xD1RY3iStx/3ZBLDkyqGJ5MZnmxjePLlDe5Jxxrck0KGJ7EMT6wZnsxm
eCLL8ESR4Un3AdyTToYnXIYnnS24JxEMT+YwPHE1xD3ZwvBkHcMTd4Ynwxzc
ExWGJ4kMT+4yPJnP8ESL4UkRwxM3hicKDE9cGZ6oMTyJZXgyjeFJEcMTD4Yn
mxmeRDA82cXwxJbhyTKGJ54MT/qycE92MjzZwPDkqzbuyQmGJzEMT7YzPPki
h3uizPDkHsMTO4YnsQxPLjA8ecrwpH017kkMw5OvXcpns/xI8OTBPx4DFyEf
R8M54XeqRzPlyad1ZkpD8HoWmtsiN03fnwRPksa9TYjxJ8GT0+f0sz+NZsqT
m05TLbcGkOCJW6JY4tfRTHmyaKu53/FAEjxpyTj20yiIBE+kDypwxfaR4IlI
5e0JnaOZ8mTDxvrUyv0keLLR1+jV3WASPPGXj/36TwgJnvTrX679EEqCJ0tM
luyfFUaCJw0KjmJbw0nwZHPZJb/yCBI8iRDe0qITSYInestXzy+IIsETTePL
yUsOk+CJ9AGXSa+jSfCkV6L8dHosCZ4YqlQ4esWT4ElbVKvtiiMkeNKxdGyS
wTESPLn9b+XspYkkeFK1bv6s9ckkeJJ0/OWRqBMkeNKY9CWs6i8SPMnwmjBR
Lo0ET5Cn2cKwdBI8mWW/Wf5nJgmeNGXF1cRkk+DJBktfO34OCZ4E/bJpeJlL
gidrWp6vKbhIgifznMzfxBWQ4EmyukV+aCEJnoTHzyiOKiHBE41lFpJZ10nw
RFCn0PGklARP5F6qaLPLSPDk89XtM3bcJ8GTULW4ws5KEjzJrPKXdXlAgicz
utI2Dz0iwRPFOc0Xs+pI8KTuopf45qckeHJ0/OSkRS0keJIjX7dFo4MET54Z
zT+j2UWCJypuLHvDlyR4cmCoMNerjwRPlJ9mFlx6S4InB5ufRIp+IsETK8fo
lbu/kuCJSIyj7NB3Ejyp2MGXOPqLBE+aBjVWLBFB4InmoRu9YhMQeDL+7jHh
3skIPJFJPX29RRKBJ37pv7R7WAg8mfBUNGCcPAJPspzn3TFQQeCJ93iebKw6
Ak9med24MKiNwJO9U24e3TEHgSeF0moDogsReBLW+qup0ACBJ8mE9R6/pQg8
SfqL3229HIEn6+qTDZdbIPCkryT8go0NAk8k3ZqNAxwQeNK0b63WVRcEnij0
pQdO8kDgCeeAqk2ANwJPWoMVG4X2IPDE5eQhufRABJ4cmjjDxO4AAk/q56j6
aB5C4MkrbulVqQQEnqgqBuqzkhF4kmB+TGJeGgJP7CRvOWzJRuDJpxTu3BsX
EHhi4R9zZWYRAk/Gq/YNnr2JwJPUhQXTjO4j8GRLdrryjwcIPHGoKiNr6hF4
cnbzmuCrrQg8yUup+Vb6AoEnjmcr77f3I/BkQ9fXjzMGEXiyZ4dKytYfCDzZ
n3rI9a2wIXgyvQP3ROTzucXn//BExMRy+tU/PNEsX6/w+A9PHI4JnN/50Z44
PjzYyvrDE52TInFmf3gy1fBc4EF/2hPLibFZD/1pT3L2ConLBNCerJDxu7gj
gPbEoSIpoT6A9mRHoFbxokDak4+HdeULAmlPjobVPtAOoj0hN60vuxJEeyIZ
YSO0ZB/tiWi5R2zrPtoTlbDtW4L2054k39ueqh5Me6Iw76RSezDtSa6BtVBq
CO3JTP4sA5dQ2pNSvYpW3QO0J7qx8h0Tw2hPeCGGpu/DaE+SUryV2sNpT9wv
S2+pj6A90ZlYp1l/kPYkZI+na1sk7cm2XU8V3kXRnpTo6juKH6Y96fzYq64T
TXty/rljqFMM7UnBHguflFjak0u7E7+3xtGesOUWqakn0J5Mdt73LegI7Yn4
yN2A9qO0J7OLMgqMj9Oe7NnVnXEtkfbkUOg+m/nJtCdnChLrb6bQnsxIDlVa
mUp78rK00qT3L9qTmbUy5odP0Z7M79skWHia9qSv+BrnQzrticwt5w+XM2lP
ZqQ2/L0vi/ZkleHtnDVnaU9KBd/+mptDezLtzdFc+Vzak6yGBx0SF2hPil9I
ommXaE9SS6Y2swtoT5w/pFzRukJ7Uu93vdm0iPYkpjvf2qeE9qQz751O5jXa
E9cMOb/OG7QnZWrS81VvkeCJQ87rnXvvkOCJ6pv2RfV3SfBkrOe2tIXlJHhy
tnzFmfOVJHhSLO28VrWaBE+qvasr8x6S4MmGBZ0jix6T4AlK1p7QUkuCJ5of
A74EPyHBkyKHqn90G0nwZLeUefa7ZhI8Me4LCCtpI8ET1ccjvoc6SfDE1a40
wb2LBE+arZrbLHtI8ERLPN/d+BUJnrjOa11i3E+CJw36OkGWb0nwpL6lXMX9
AwmeJD7sMz40SIIn4q78LyWjnlOeSIm6GX74RoInQiMnFswfIcGTLmGFNxFC
tCe3B0K3vhhLe6LtllJtNp72JPvU3hl3xGlPjn/ZvQlNoT0xreXfeyhBe2K0
OMrIVZr2RKYxa1iMQ3vS7vVp+Loc7UnDwCw7XyXak9KZC5UXz6I9mV3ks5Wl
QXviV7Pe7LsW7Umi4tO6Pj7tiWLViHTvXNqT5AXLtN4vQOCJ8+7IF71OBHhi
2hCd9Q7yceR2V3R4nDMBnkjOXNSt7UyAJ7qrl9hvGs2UJzdvEy7n4f2XUMFV
i6Gfo5nyJGlCsaKrCwGePAs829Q8muH3EyUPpQ0bCfAk5ojx9w+jmfJk9foj
bsc3EeCJZEDWxmWuBHgimtHxcYIbAZ70uKdLtY9mypOhSOuqW5sJ8GTxN9dp
+e4EePLXGDSQ70GAJ1J6q9eXeRLgyVhHcZfnWwjwpH1T8/epXgR4EiirPtti
GwGeFEx0en/KmwBP/Dk9ZsPbCfCEmDfdYMsOAjzJHjCufLWTAE8kvlb27t5N
gCc+Ra1pEnsJ8CT66LV3t3wJ8MQh5HCjvz8BnlTwttoaBxLgySQfV2+lfQR4
ctVrm8LEYAI8WdTssXlcKAGesBRmmkwNI8AT6XDLWxoRBHhyWj/64epIAjwp
3bna5/Ahgv79xGNsXn00AZ7oWncFzI4jwJMLeyY8O5JAgCfWI3saxY4R4EnY
8Hen+EQCPPlrjVGAagoBnpxIfDLzYSpBe/JhxD7kFAGehE/qlzdOJ8CTmM+x
WzhnCPBk/9AFciSbAE+0Yp8mf8ghwJMgfaddg3kEeLI61OPxuHwCPAlpaMhW
v0KAJxvCzb7aFRPgybn7OqUnrhHgie25i4N9Nwnw5CuZlbL8DgGeHMu5cvba
PQI8ObVQh7OgkgBP3Iq03pRXE+CJfJwna+MjAjy5Y7gxZUodAZ78XWjo8aCB
AE/ki5+HJDYT4Enz4Udt29sJ8ORLrOHOdc8J8CRCVMnAqocAT9IbR+bZvybA
k9Hvk1Y7BgjwJMjeMib5AwGeWPsSbTWfCfDEZswkPYlvBHjSX3vmmOsIAZ7I
PonsrxQWgCcfHvfoLBQVgCcuKnHrr4kLwJN9D0c2LpsqAE+WZ1vrv5QSgCfr
vewbjrAF4ElOwH4Nc3kBeHLfsFmTpSIAT3azNWreqwnAk43zmsc0aQnAkxfl
I2U1OgLwpMzU/lvtfAF4MnbchrRuQgCexBTPyhQxFIAnhEvo17nGAvDk5+av
MTvMBODJ90ultrcsBODJ9EkVRiwbAXjC77ixLNheAJ6cvSVq+cVJAJ50+NaZ
+7sJwJMR5fG6E7cKwJOFjvZ9uT4C8ES1etlmu70C8EQsm5MsFSQAT6Ls3mxp
DxWAJ6LHLtZeiRSAJ0M7Zl9NihWAJ3n/9jb+6cmH15GYJ+NO4J7MVME9IVfi
ntSE4Z4cLsI9KRwqwjxJ2oV7slgO9+R+GO7JeQvckxo/3JMz6bgnXa64J83h
uCdWQ7gnxxieyMzDPZm2AfdE3AX3ZLwM7omQOO7JsDTuSfxc3BOyH/cEfcE9
eVWAe/ItAffkXBDuiaI27onZdtyTcVtxTzobcU+eyOOeFIbinqxeiHsiy/DE
1BX3pNsK98SF4cnwD9wTYYYnDgxPqo7jnix+j3uSMhH3ZPwg7okTw5OSaNwT
OYYne0JwTwae4J7YMzzJvod74n4W9+Qjw5OD53BPtjE8SS7EPRHE4p4oMzy5
wvBEhOFJyCHck9MMTz6L4J6YNeCebGN48sQG90SK4UnXz4mYJ56PcU/e1uOe
pD/CPSlWxj2ZV4174ncG9+TYVtyTEn/cEyuGJ+4MTxrm4p6MY3gSbYJ78mQM
7ol2Ie5JsBPuyQ9X3JO4XNwT3gTckymtuCeB13FP1PfgnoQq4J6s24B7wmZ4
Mu8w7sl5E9yT4HjcE7477ol52KHFWhu44MngukUZBOTj6IoEWeYxmilPls9Y
kVYMr2eh1dWDhLIjFzxZpZaSmOfIBU+qGr0vWjtxwZP4hH2hcs5c8KT6xslp
Y1244MnZ1XvWiW3kgif2ZKi99iYueHJJUlxyuysXPFmzSWN/rRsXPPk87f5J
S3cueJKxNm7rew8ueOL4UPz1hS1c8ETYInzqIS8ueDJdUuJZmDcXPHnJS1hz
yocLnvxdkuP5dCcXPMnlV8lr7+GCJwP6yl4ZvlzwxEg+13J+ABc8UU+V/ftV
EBc8+fTz3YNrwVzwpO3K+rU5B7jgiX6ZvXtJBBc86WpL/fIiigue/Psrapgb
wwVPIv2W702O54In/JGS9YrHuOBJznyX8xVJXPBEKPmwzeFULnjS85ea/bY0
LngS/awp3zuTC55cmfVuVdxZLnhSHeLKr8nlgidzbZ+ZauRzwZMVu3OPZhZy
wZPTYlfHCq5xwZPGqhNHP5ZywRO94aj5lXe54Mk6P/sX1yq54Enb09C46odc
8ESwfwp/qJYLntxsO3/NqJELnkxfn6iY38YFT/LrctYu6OKCJ4+SLa07erng
yZT6aLGMAS54Yvuif/OBT1zwpPhUrEvoEBc8mdGj3H/qJxc8+VfkxccmER54
4r/2mCd/Ig88SXsXvjhLggeeFOnGeeqxeeAJu3Jy3UsFHngi7fx68xVVHngi
XxHJOanNA0+kq1oaM+fywJOvKRYxlQQPPMkeaFcbv4QHnuQ6/nvUdTkPPBkc
k1TaackDT0716sTvseOBJ/y2si8azjzwpGvVndYhdx54kqerpvFyOw88qVX3
+futLw88UShOyZAM4YEnrTflTq+J4oEnbqnfzxUk8MATTafCM5oneOBJCLnC
/3YGDzxpDTGbuj2XB56YnL+9QlDIA08u1QumzyzlgSffTDvM1Sp44EldqWmH
0WMeeCJ4dvHs/iYeeKJ3oDr2yXMeeGJY92rP0n4eeCKh9HLx40EeeLIC6Tbs
GuGBJznX6qbMG88HT/rZrk+mSPDBk01NSmNFZPngCV+pc7+UKh88cX0qqW7A
54Mn1ypb2kL0+eDJYMXnoM6lfPBk5sLaPptVfPDEYM9B4Vd2fPBEOb0788gm
Pnjir+p5wcabD55odqwenuPPB09evU700QzngyfTHr3rXRjPB0/SLrUtcknl
gyd6WdkWmdl88ESP4QmfhXsimW+AedIxaIZ5omr9CfNEdhbuSeg13BONaNwT
40jck8e6uCeXNXFPTv2agHmitgb3JEYM92SjDe5J2l3ckxxT3JOskWmYJ87q
uCclxbgnR1VxT4JlcU/4bNyT+iTck7ZPuCdil3FPOvJwT8414J7k/sQ9ObcZ
9+SfL7gnYrq4Jx8TcE84Kbgnh57gnkyVwT3p9MU92WCFe7J7O+6JoijuSSjD
k6p3uCdf3HFPdGtwT8r34Z6casI94dvinvx6jHvSE4d7oluDe7K4C/ck+iTu
SVg37skrYdyTKhvck6CXuCfnZ+OeyFTgntSuxz2pvY178u0O7knuMdyTOX24
J1sccE/ujiRinoS8wD35pxn3JH8F7omdNu7JLxXcE6Mi3JPkYtwTi0Tck347
3JMUAe6J2X7ck8Es3JN1p3FPAo1xT3pCcE/WxuGe/AzFPfEtwD05/W8P5sm0
hbgnJ67gnphL4Z7ce4R78moq7snrOtyTO7dwT3ru4J5I6uCeXN+Ne9J0BPdk
vhzuSXIr7sn5F7gnnHLcE79U3JPNFrgnKtomIT+UWeDJ+72VPjIqLPBEbpfu
Yt/RTHkyEGn8TmImCzx5tDdxZ/9opjzJvBFVKaTKAk9Mbjg8t1ZjgSdzJioV
9aqzwBPd8ltzSzRZ4Im8yOCq+1os8CTfzmZwMo8Fnkx2t5qUpMMCTyxqdMIc
5rLAk0wFCeSoxwJPjuu8n5WmzwJPtiueYckasMCT8Bcv/m0wZIEnkluXZj00
YoEnpReJbz9NWeBJeYNSnbc5CzxRtZsjImvFAk88Wo94jF3LAk8CF5jVq69n
gSdaFy2lolxY4Mm2aZE/ZrqzwBPpHbftfnixwBPzrOtfJ+9igSexN/inHfxZ
4Ml13X84PcEs8MS22VD73EEWePIxfHZqViwLPBHxm6vafpwFnoSmicaan2SB
Jx4ttvFDZ1jgif7lF6/a81jgSa+Mn+X3QhZ4onJnKMSylAWeNEk78p+Vs8CT
I9NuTz37iAWejPO1aMhqZIEnhu+8uW3PWOCJ6IMz1aZ9LPDk1bJsm7efWOCJ
eptTUNUwCzz5de57b4soGzxRt+5YpCzBBk8cu4pnpsmywZPEpP3IUo0NnuwO
CZ+zQJcNnkj2bDtltYgNnqTZGSpmLmODJwUnPWxU17DBk8dhZW1tjmzwZPB9
0sqKLWzwxLG2xLBrLxs82f3M24IfxgZPImaemJIfzwZPdAzPSDqfZIMnFepJ
7xafZ4Mne84pzLMuYYMnP2sTdyXdZ4MnedsmLBKrY4Mny5WNZc93ssETIrr1
lN8AGzxJ79Ky2PudDZ40GO26niHGAU/uznzs9n0GBzwRqzdqD1blgCe9I0/P
6M7jgCe+c4OXTF3KAU9e7lxmwLbigCcW303ZK1044MmhIzdtc3044Ele2c+A
OSEc8GS7UpZoTzwHPNHs9w+4fZoDnrxxTrS9m88BTy6Eb5AZuMMBTz5nJRqR
tRzwJGGBx5qrzzngiWbkjnLbjxzwJCj0wXS5MTLgybN8qbuiUjLgScxAsPGM
WTLgSYr1M3mz+TLgScei3IoMExnwhGiceE3OTgY84Tq83X7DUwY8icwQ8ggI
lAFPfCc8lFkfKwOeLNAvGON0WgY80SsaPnHgsgx4Yp77wb7yvgx4ciTuwR3N
Rhnw5PWquiUXXsuAJ+ZjnBzNf8iAJ/0T38RMmiILnujtm768T0kWPEl4nje5
e64seCJjf8vmm4kseFIRlnpSy14WPCnTwj1RmzL4auIfnnQrsRQN/vDkYrm4
WrwK7clVXZcR4T88ObztdXbiTNqTdbbnlcxm0Z4sDnrlrahKe/KGo3xUWo32
xPrTlBhtddoTJ/0sR1cN2hO1rVMm3dKkPfE2KE7S06I9cdhCCNdp056oh/qv
iuHRnky/HxnqoUN7EvCm8JTbHNoTp+GIs2HzaE8Oi945fU+P9sSm0y5WRZ/2
RPxVxK4zAtqTJy0FtsYk7cmgS5BAbDHtCaf3ntrAUtqT/bOT5D+a0J7sHodU
WWa0J7kTDJY6mtOe1CmZ7Ku0pD3hzTFpsbCmPYl94rjh+1rak89/9U6tdKA9
0dL1/PeKE+1Jp9dZmbubaE+GFI+GfHCnPTkYvUZnsRftycLPRrqFPrQnUYqD
h0320J6cfCRn/MOf9kRu0RX3uv20J35pDd+rwmhPHkY/FX0RRXsyIVTvuFwc
7YmEdk6e3zHak/hx4rZfU2hP1Pd4nkxMY9HfT4KEo2yzWOAJp1NfRT+XBZ48
SD6726CABZ7cUxt/aFMJCzy52mjsmVfKAk96dHwVpe+zwJN3Gi3F6dUs8MRw
e73eqloWeCJy4eMF+SYWeFL4YkBlaicLPLl8MP2MyksWePKyegphN8ACT1Ir
HT/mD7LAk5wHbQ2aP1jgyceNn99XjKE9Eb6hvypcnPZkaZDjD1dJ2pNppnpj
PWRoTzQjinbEqtCeeNe/sXo6m/bk9T+TCtFcNnjy1cctrUbABk8EP52Ug4zY
4Eml4gHTVeZs8ER0cKvSUls2eCIq1VRs78QGT+LSE6UTPdjgybDpkZWfdrDB
kzOGD9x3BrLBEytz293SEWzwxOCGU3BbHBs8WWU0K6k8hQ2e6Oh9rqjNZIMn
eXxdOaGLbPDEVt38rNVVNniisbd6R9VdNngyft/8GJcaNnii38odq9DEBk9W
Sjn0jHSxwZOd2T4Gwm/Z4An/npacxhAbPBlcZRW3cywHPNHKuZzxfAoHPLkS
Iu+6U4YDntx65t2trsYBT07lH+AKz+GAJyq1Cy1/GnDAk++Pdq5TNOOAJz/K
JNe62nLAk3Sp77aPNnLAEwlrMXf77RzwJFBEJnFiEAc8ebpy/PvnURzwRGYk
80BrIgc8WSF1fcNQJgc8CSmdHEcUcMr+B3dm5vw=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 1.}, {-41.94597622978761, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.407896679609*^9, 3.407898063178*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe1", "]"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
  3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
  3.40789859744*^9, 3.407898600709*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.2701985664176059`"}], ",", 
   RowBox[{"-", "1.2701982268450047`"}], ",", 
   RowBox[{"-", "1.6358850446767417`"}], ",", 
   RowBox[{"-", "0.7790872732983823`"}], ",", 
   RowBox[{"-", "1.1703088368855665`"}], ",", 
   RowBox[{"-", "1.1703086406694925`"}], ",", 
   RowBox[{"-", "1.1179286292002248`"}], ",", 
   RowBox[{"-", "1.1179286291194246`"}], ",", 
   RowBox[{"-", "0.9655233313125543`"}], ",", 
   RowBox[{"-", "0.6482343140614981`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407898398363*^9, 3.4078984964709997`*^9, 
  3.407898565705*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=10", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "1"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.01"}], ";"}]], "Input",
 CellChangeTimes->{{3.407896569236*^9, 3.407896572324*^9}, {3.407898217191*^9,
   3.407898222105*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe10", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "10"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.407900363601*^9, 3.4079003914890003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe10"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, {
   3.4079007220030003`*^9, 3.407900730473*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9kgtQlFUYhncwHV1wKgUREXe8xmUcRDMYFF9I5WJeBk3MXCczuZiRkKW4
OSoslAWyK16mEFFZbMYwzEvIgnnUNQRiEVgUVJLdc35hcRcUC0YLMXY7p2/m
n3/Of/m+932fb/LGrSvjXWQyWfzQ5biL6p8SIjuSTsmX7qVRFlUm0opSR+v+
Px/CB1OGza0dOpdPyrLFlhdiWdzR7a4Z4n0xXNrONyYMnfO/d9RpPLFmL27L
EN+XYtifQY1b1JTYYx1PzoEV7NzmkSn+v4gj4bKAu0NneYsuJUx+CZWJAf1l
WaKfHoaNvqbSryjxU2qu9/lehn6snVz9WvS/go78oAr7PkqKh/5u0V3FlSkq
MvtbMe8afILdjHnZlMxxlgHphqftbvvF/BuIqxj460QuJYY+36EJvyGwWj9y
hVbouQlF6G5PzzxKVjoHViPce73P84NCXw3W7PUb13eYEovK0bAWA8FfvJB/
J/TWwX+Lpj40n5JUh7wUI0ZVZmRmFgj99TCFe0ywFlLyH40G+KVWfRN/Uvhp
gJfFaBzQURLtHNCIY0+9zD/9IPw1Ijl+eUXaaUoc05SaJoQ1X1+9/ozwa0LU
gvSSdWcpcdppMUGbuOjitvPCfzPu79iedOoXShQOOZNuQ68IvPqkXORxG1tj
Zl9YfZmSxARH3UHntJ6QZiLyaUFRyc7oTwyUOLq5l7Zgtuxgq89NkVcrrFnH
2q21lPQ72vW1QrvmxCpjvcjvLhSfLvL/vYmSBc6G99DlbnqP3hF53sON7jnN
Y+5T4pSXdR/6JJtW2S7ybUNk83g1YZQY6xzVhljD54XzrCLvP7Bn5Yo7DXZK
PJwCH+BwXK7Pnl6R/wNM1ZYkRPZT4mynbIdq+gXdjH8EDzOWGyOqFDLG/ZhR
6KUmQcMZ52PGrN7AvUo54/7M6C/OeXb8VcZ5WVBzKnH8gDvjfi0IO+Z5K2UC
4/wsMI9QuQ4qGPdPId/fW6mbzjhPCp/MTfUfBjCeB4Wbdt6skCDG+TIkvLKh
fkYw4/kw5B0IPTwzjHHeDOUd51KWLmQ8Lwlda/2WqmMY5y/hWcGeMU0rGM9P
QrB6dGlIHOP78BCpVcUjLykZz/MhmkZpXJd9xPh+PMSSjJzjf29mPN8OUE/T
GZLC+L50YMuG0d4FOxjPuwNxlWsbNbsZ359OpC2JKcvPYjz/TrgmtJ+9nMP4
PnVi1wGtru8g4zysqBiM2L74qOBhxS1TtNuZIsHDisCizTF+PwoeVnhLLa/9
ek7w6ELi/rmLE/WCRxemns+rfuOa4NGFhZOTdw1WCx6PsCr65whbAyNaJ49H
iOm/+Ky7VfB4BNX8iPQRFsHDhuTsfRVvdgkeNqRkB6jTegUPGz6LDNE3Phc8
7Bh5xD803EXiPOxIemmjBrnEedihiGrWKMdKnEc3fO+dniifKHEe3Rj0KtpU
N03iPLoxwWPj27qZEufRA/vrLzW5b0mcRw+e+7+ckQuJ8+hB69z3zSejJc7j
MQ6pVYdqYiXO4zHKSsK8h6+TOI/HmE/63nl3k8R5PIHvuI9flCVL5F8vSGBE

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.63},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, {3.4078952857279997`*^9, 
   3.407895312427*^9}, 3.407900415815*^9, 3.4079007315*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe10", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
  3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
  3.3918680463101997`*^9}, {3.407900423449*^9, 3.407900427275*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJx92Hk8VO37B3ClozPatC8qW4VKUrZ66KgQqUckWhTKUkkRbZS9kqyRIpUt
JeVJylY5pERFaEGIZsZOacEMxVfP73Vf5zn3H7/zj9flzNz3fV2f85r3vEZm
9yFTu5EiIiLfRUVE/vxF17ybj6ItDCTyPaakrfvs7k+ZT9Or3w51JHWr+mqO
7XCdPfd0h0n2NSrfcLHiEbifRK0sc1gcNFzHRP+5Uqgxb/sKU+D1aVRHSUZ3
6XDdafLnP+nUDePEDAG8/wF1wnxw3EJDiXzxqkRnbfEsapKe0ojdhmi9HEpF
qyQkbrhWtAx92qPwmJI+EpvdZIjWz6P6dyR4q6yXyE8afndVYj419Hp0m996
tF8B1eGy6GfdcL3836uQ2rHrWpKWEdr/GUW1y/1OGK4LexSGd3hO9VvcF5HY
gM7zggqUcr3vN1yb/rthMbXLqHDq4AZ0vhIqvmb5Eq+NEvmf3f8s+JJaPytw
SOxvdN7XVMT4/OCLw7XLn+M5l1L/FI2qX2iMzl9GCZ48/lY0XP9fGuWUxBrf
8n2bUD/lVJPPfM/JJhL5Bv9uUEGdcrw7VGiC+qugVBwttnuYSuT/2c0ytJLa
J7gUsWIz6vct1flsVvrgcP1vO1VvqZKep9kvzVD/76g8k9R7V7dI5Ev9Oc7c
91SKw4Lrx8zRPN5TprfzArdaSOQ72P+5PlCXfNXddbai+VRRC8wD3JS3SeT/
WW1KWhU10a/Ze/52NK9qSvD3o2TZHRL5vX+W66mmlpfc6lpgieZXQ+klBuxc
tlMif9W/C36kvvQ4DuruQvP8SAUOxVTvspLI//d4p2upSeWRP72s0XzrKEH7
+B23bCTyS1//ueqoO9U/p1TvRvOup06lOCyaYCuRP/XfA36iRro8ubnRDs3/
E1V41zsiwl4i/9/lLBso6eRDgkYHlEcjNfGRR6PaPtRPIzU5tXjLhf0on0bq
1uvU3b2OqL9GSmFV6sTdTiivz1TR6FNO7w+ifj9TgpViPpucUX6fqY2i2y3e
uqD+udSujOyBna4oTy5l8CrkRLcbmgeX2tfvWhd4FOXLo6RnLVyqdBzNh0dp
L4z1rjqB8uZRpwzra855oHnxqco78ga6p1D+fGoourZKzAvNj09xbD0vVnij
56GJWrg/JzjJF82ziVo6Z1uplz96PpqoU+IbbPacQfNtptq/xpsbB6DnpZl6
8iEwd20gmncztU3LPEYnCD0/LVTimsOi+iFo/i3U5u79omZh6HlqoeQ8227u
v4DyaKXIBxmD5yJRHq2U6pbUqfejUB6t1Ki40n7uZZRHK+VTv+zx7CsojzYq
VWz8XqurKI82yvjknbGp11EebZTBuyPZQ/Eoj3bqx+OOEzuTJPLD/s2jnbLq
TbF6lozyaKfW7LY/rpqC8uigzi/6Vnk3FeXRQXEJNc+laSiPDqrFX+Pc43so
j05KKXimqGkGyqOTGvo4faD7Icqjk3JOPu8dnY3y6KLWbe9IMHqE8uiiVPe/
chmdh/Loopx1Gn69zkd5fKFiV/Vvji1EeXyhDjRKnD1ShPL4Qo3/siJ5awnK
4ytVV/5Pgd5rlMdXqq23ok3rDcrjK3V58wLlVZUoj26qRLA9wfA9qkVEFNYJ
gv/ryYsPuixPDDFPQjBPKkrZnqhWsj2pxzyp2Mj2RGct25NV8mxPapazPalx
Y3uSrs/2ZNsNtieNmCejME/+wjxpwDxxwDzZhnniiXkyDfPEHvPk93O2J5WY
J8ZL2J4UYp44Yp7IY57swTyJwjy5h3mShnlyEvNED/PkHObJPMwTccyTHswT
ZcwTLcyTLMwTW8yTcZgnLZgnnpgnbpgnv5zZnkRjnkzBPPmSy/ak9zbbk3jM
kwFttif3ME8aMU8mY55sxDxRxzzZgnkijnmyBPPEDfPkGebJV8yT1j1sT6Zh
nszHPHHFPHmPeZKJeWKOeeKPeWKEeSKNeSKKeaKMedJzne2JN+ZJPOaJPuaJ
LubJN8wTI8wTTcwTZ8yTOMyTh5gnfUFsTxowT8QwT7K3sT1RwjwxxTzxxzzZ
iXky1MX2pBLzJBbzJBLzJBvzRFlSMtvPmgRPhlpsB85DHUkd373medJwjTwx
SsmYWgb3k6hOkZzO0TYkeLK2wnS9qQ0JnlzP8Vlyd7hGnrj56UfP2E2CJ3YO
CYGRwzXyJJofNVJmDwmetG2aPyJvuEaeHIs3PuNoS4InqcnTLyjakeDJwlzP
eQI7Ejx5FHxau8qeBE+ifRfVFzmQ4EnCNyfRF3tJ8CREYt29qn0keOLz4w5P
sJ8ET5a8DL268AAJnjhIVdcfcCLBk81Rtkn0QRI8KdEf/U3WmQRPRsf4Fka5
kOCJVPJpSUlXEjz5LXFL8I8bCZ4c49tu33KUBE82FU7VGXOcBE/ui3beqjhB
gidLOe0RtzxI8CTTvnYo9BQJnkyU3dBx1osET8aM8TIL8yHBk+CJe1ak+JHg
yZvAs5cqT5PgSeWGCQfGBpDgyc6khAzzQBI8mUJY708PIsETiYOvzs8OJcGT
VIfHky6Hk+CJX/R6oVwkCZ7M/JitmR9Fgieyt3eVHIgmwZN+0bAExVgSPAn3
8MvtvUaCJ27H1MXexZPgCXne+ERBEgme1OQNEvRNEjyRSa6NfX2bBE/aFxYs
br9LgieaBckJ09NJ8OSh4Gib2QMSPGno57bFZ5HgiUjxssDBXBI8cXoxMW1/
Hgme3Fthod5cQIIn8zgvRVyek+DJJ72GFvESEjx5FnH4acZrEjzJOHFsj2M5
CZ6cPpcQrfKOBE/cC0llsWoSPHEPyWhtrSXBE4OR8mdqGkjwpD+vKr+KR4In
bkNBRrwWEjxJPXS7YqCDBE/+2WfZK91NgiehZ65vNv1Jgic9J2adCBWQ4Mmq
nXntVb9I8CS3bI7UohEc8IT6ZncqgOCAJwcEddu/cjjgiXAM3bdrPAc8Mbq1
xuPDJA54Qlce+WI2nQOeyE72UauR5IAnRvcSxXZLc8ATs5Of6rvmccATk0+J
He6KHPDE0fXVgNgSDngyJC+yKXQZBzypSObaSmhwwJNln26Hnf6LA578sAky
b6U44InBOJ3pyroc8GRDiMqi9QYc8MR27vrJszdwwJPHvm/MdxhzwBPR71k6
IcM18mS/mrRLrBkHPBE9YPVmyXYOeDKGPKtfYcUBT0ZaNJX52XHAkzaZTGt9
Rw54sl5z/s8ZLhzwZJe2ic/AUQ54Ijbpb5EvJzngSYq8/L5uXw54ouL4OWPk
OQ540jCd7UnV8fKj5/7jSdX2xIyY/3hyNzfVOes/nqjz7dIbrBlPds1Md5/8
H08UzpZWmv7HE/uibQVXbRhPuKeMjX/aMJ5IVQ+dMd/NeKIeN8Ht2W7Gk83B
LnKr9jCeUMdtEgv3MJ7oue0S3WLLeNIhM8/suy3jSfXzxJtX7BhPnhX+kjCx
ZzxxyHdLmuTAeHLn68FjjQ6MJ7Iue+Jy9zKepDe/V4/fx3iy/I3R5sj9jCfe
wWsmRDoynljMm3867gDjidOj1eU5TownSe15YxsPMp5wLcMtJjsznmhaOJdt
dmE8KSh5FRp/mPHEwbkg95cr48nbpEmH7I4wnmz0mFVae5TxhLR+1mN1nPGk
n/IT/36C8UR4yFDpggfjyfxjPt46pxhPJpWMlv/tyXhy4NZ83WJvxpPxpsED
8b6MJ6EXLVwC/RlPpEnRlz5nGE9u97otDAhgPBlj8CvraiDjSbir+eWnQYwn
Y59nfusNYTx5OKG8fWU444mSxOfbIRGMJyuTCrd9v8h4MltySMr+MuPJUEX9
gvYYxhMn6zOXPa8ynoRdnREnF8d44veybF9NAuOJ8Ro5ubgbjCc/Jwz0H7vF
eHKo/b2MTSrjSYzcqJc70hhPnizlye9NZzzRiJE5fOYB48k9vTHczCzGk9S1
DRnCXMaTyKCl8sZ5jCcW+zd7ZRUwnuQ+qBFd/pzxpCBWesTTYsaTOaY/im1f
M57c/aCfIVnOeNK3bYpUy1vGk0WS21xfVDGeHH6qK/2klvGEFsTHFTcwnnx9
FeDRziPBE4+0Q/pyrSR4Yrk366ZrJwmeBIjUbKvrJsETE88Dyrt6SPDk7iiL
Gf1CEjyRWRuhkD5IgidnX+jE+4synoinjvp9hGQ8mfrLdsTZcYwnSi6NVTmT
GE+UD5xfPnEG44mWl+B82BzGEwW/eE8tOcYTp4vBHpKKjCfhrhVTNJQZTxLC
HfnX1BhPFsf77nDWYjz5ZB/K/7mW8WS71sQFyX8znnxok2J5EmnP9uTUrzMs
Txabsz1JwDzRwDxZiXmSO5HtiTPB9mTRfLYnrWpJp07PJMATy7giThDUkVQI
Jz3t+nCNPEkhtR3z4X4StUT1h/aX4Rp5IjzwYp7iLAI8OcCfOcdluEaexAfn
yBXNIsCTytQmVQVJAjwRid+04ZIkAZ5M6ZC1mzybYH7v8hs8ETubAE/e3xt5
etkcAjzJVSv3ej+HAE/mqofsOT2XAE/GWX1RWCNFgCfPpVSLx0gT4IlZj+YK
rjQBnrzxdHV9LkOAJzaqg04PZQnwxDb8mtR9OQI8Kc187floHgGebDj8yKdi
PgGerLxjPffnAgI8UdTwXC+nQIAnwUO3B3YpEuDJjQuW8jcXEuBJ4K/upwOL
CPBEoyO70FKJAE8mSo+UermEAE9iZ8q+XLuUAE9GdXnnlqgQ4ImbYVLTjuUE
eNKWvHJ1vyoBnqjuW1CYpE6AJ2oy52x2aBLgSURW2aS5Kwnw5INvdmnnXwR4
Uq+699wLbQI8kbmwXzuNIsCTXH7B57jVBHgiM6n74PW1BHiyYovIpxQ9Ajy5
dSRMIX8dAZ60edUYcA0J8MSoK2uFxAYCPLnz636v4d8EeHL7nujJ0E0EeBKR
FlPUaEqAJyO857/T3kKAJz/bJyUmWxDgSZp/1DLJ7QR4wlFK9b1iSYAnNplT
IuWtCPDkTYD1XtqGAE+yjJpG7LElwBOz4II9kxwI8OTIwZrw0n0EeLJj/duw
yAMEePJj72R7h0MEeFKbkTld/zABnlzzCLqz9AgBnpiaTVgsf5wAT45N2nlN
0YMAT8S+KI3V9CTAk1mfX3qa+hDgiZqOqMgJfwI8GcySiUk9S4An0ecbLdoD
CfAk2W6nrloIAZ60XxjrGBROgCeH36dWfY0kwBPnT6pRVpcJ8MTh+Jv7tVcI
8KTdo3CF7XUCPNkQuV9DmECAJ909MtkxyQR4soWjVWxwmwBPYqW/u4qmEeCJ
jaH5i5fpBHjyj65e2bWHBHiilrk10iuHAE+WxNTMc3pCgCfVYzICHQoI8OS1
vV35wecEeNJYIRzyLSHAk8gVvbJJpQR4YlRosqayggBPxPP22Y/7QIAnW1X7
orZ8JMCTG4Wjam9/IsCTRzuaNMfxCPDk0M5FmSdbCPDki1mchbCDAE+q12nL
+HUT4Elfkty0WT0EeHKEjtLMExLgye7annOHBgnw5NWbTPElomLgCa1skysc
LQaeqA+du1Q5Vgw8+XFmFsuTExfZnphinizCPLmxlO3JkzVsTwY+sj15FcT2
JP8225Ow62xPutvZnuj4sj0JTmF7ckCZ7YlXXTDLE00ztifumCc7frI9OYF5
cnM525OcMLYn6zFPclzYnuSksj2ZgXlyFPMkCvPEGPMkpp3tyR0ptifhM9ie
nGtje7IA86Qc80QE82Qm5slWzJNXmCevMU+KwtmehPLYngRNZHuSZcb2RN2N
7clszBN/HtuTpD62J2MxT8i7bE+enmJ7EoB54ox58mYx2xN5zJNnmCfGmCcm
mCdzME9UME+eYZ6kY55sxTyZgXkii3nS1MX25GYD25Mr2mxPCjFPLmCeXME8
qcc8McA8scU8scI8qcQ80cQ8qcU8UcA8uYJ5Yo55QmGe9D9kezId8+Q25kkx
5skbzJONmCfrMU8GHrE9qV/E9mQ05knENrYnHy3ZnmRgnhRhnnRinjhhnvz6
yPbkCOZJGOYJd5DtydWRB1Ufn+qjkSepNrFry6GOpDTyopzHevbRyJM+tzs5
zp7ofhKlNpEz+/dwjTzpSHscke6FXp9GZclkSYZ499HIkxKNV3cv+KD3P6Dq
ZNLX0L59NPIk5RZZOdkfrZdDaVXuMA073UcjT+RFpHNUz6L186jDD/L6Rc71
0cgTa68I8Z5AtF8BJXrix0eJ4D4aeSKur7LTLBTt/4ySPJTgQ4f30ciTbQ1J
GqaR6DwvKA+VG05jL/XRyBNN5fkTv0Sj85VQemMKx/fF9tHIE7eJq03l49B5
Xw9/vgUXeSb20eDJxtItv5PR+cuo+ek2bQm3+2jkSZZY775Daaifcqo1KIDe
fb+PRp5sm3a04mQm6q+C2jJ4+syT3D4aeXL0U++zeTTq9y31qvn84fuFfTTy
JL8vxs2+GPX/jlrmKXlPp7SPRp78FsnkrK5E83hPGXq/s3Oo6qORJ7pRGbcy
6tB8qqgZVm6Z87l9NPLkhYKy65MWNK9qarVArNC9q49Gnnwp1w7c+QPNr4a6
+8zwrp2wj0aeBL9rl4gYQvP8SHleXB3TRAho5ElRWPOSnWMFNPJkvPPIh8JJ
Ahp5UvnefvKjmQIaeXKl9aZKvLSARp5ER6gLUuUFNPLEfKPHptolAhp5MjLg
2zxldQGNPDFJXWtzU1tAI0/G2Th8X6snoJEniv65RaM2CmjkSai2dFmbmYBG
nnRumNv/3VJAI0/OTx7QlrYT0MgT9TUfQ1ycBDTypFCmjtd8REAjT57nrFD3
9hTQyBOVlt0+2mcFNPKkUU+ycG4Ymg+PmsuPGpCLFtDIkx06UUobE9C8+NS0
Ap9dMakCGnlSpeYfNeYhmh+f2uue1BiXJ6CRJzE99eu3F6N5NlGz6jSaNSoF
NPIkYlpt0Yo6NN9m6vHFBaOsmwU08mRw1NPs291o3s3Uoei0kbMGBDTypEXM
fPjjXkgjT9q0LjXYSwhp5InayApaV1JII09ezm5/s26BkEaeDE20oJxVhDTy
JEh3zuo8LSGNPMm0fjtmmYGQRp5oDl6rebVZSCNPRu5Tbj1vJaSRJ/zDD48f
dhTSyJNiw+o3XseENPLkgMlNtQd+Qhp5MrMtoGdCmJBGntxZuGBXRKyQRp54
pGwuWJUipJEniUv6XCdlCmnkSd2F9tLxhUIaeaKRX6uoWi6kkSdWfYpNvvVC
GnlCeOZbDbQLaeSJb9WXgasCIY08uXJ31VxHsX4aeXL1/jqlPVP6aeTJpmif
8DOy/TTy5KHZlIfvl/bTyJPH82+KmlD9NPIkkKfULtjYTyNPqhszP5Ra9tPI
k+t/q2uWO6JaROTCCLYn1uvZnlRnsT3hpN9meaIfQLI8WYV5YinN9sRmOdsT
m5lsTwq2sT2Ze2o7y5PKX1IsT6Zinnh4sj1578T2pGgV25P03Zgn9WxPtmKe
LMQ8URRne6Ilwfak+zPbk6QNbE9c7rE9OYd5ch3zJHEq25Pi32xPFDBPqvhs
Ty5gnmicYntihXlCe/3/nrzayfZEFPOkr4/tyVLMk29P2Z6cxDyZhnniGcr2
pPsg2xMlzJOdmCcmmCeDRmxPZp1le1Jxg+2JthXbk1W+bE8Ul7E9OYJ5UpHS
z/KkSIftiT/mSXY225ODzWxP6jFPRmOerMQ8yafZnrzHPJmHeRKOefKhlu2J
D+aJN+ZJNubJ5stsT1QxT25inliOYHtyGfOEK8H2JHgt2xMRzJO5mCdZe9me
5LqwPTE2YHtybBPbE/sWtich8mxP1txge1K4mO1JBuaJLs325Hgv25Nbp9ie
HPnA9mQU5on3P2xPuJfYnhzfzPZE70MyyxPOJ7Ynvp/Ynsxdz/YkUk5TJMqH
C558TbKWb4M6khrvah3D9eWCJ0WCEhNffy54srFmxeriM1zwZN9yM4sH57jg
yUfj/FP6wVzwRCFaLtoznAue2E6RPGcZxQVPjjxZrtB4hQue/JrANeIkcMGT
HzHHnlXd4oIna8Jm7DS6xwVPVs/9p3ZPNhc8MTH6JCJTwAVPvh/8cdb3JRc8
+eD3YUHAOy540pwmDFZp4IInSlX6ez3bueBJu9G4HQd7uYwnW7qIEaI88ERW
tXCkugQPPIl8G9Y0di4PPNG9b691ejEPPJm91Sj02l888MRqpaz1ViMeeFK8
NXzh/R088GTT56Y9qQd44InDbIH7Wk8eePL30vHVJ8J44InC8ry6jYk88CRE
/Q0vL5MHngzdm7n69UseeFI33WH1kQYeeCIfu2lhzk8eeGJ4ac7KS+J88KRs
QvzN8TJ88OTwvWkJczX54ElT3NCmImM+eHL10uDbUXv54MnJ9ow1Nd588KTp
9+U7a2L44EmvbN0MnQd88OTySK0z5WV88ERcldf+vY0PnhhI66omE03gySWV
Hv02mSbwpMMueDB3VRN40p3qozTLsgk80X0+8irh3gSepGjWjT15uQk8OXPB
bPnJrCbwpO7G+CejqprAk4bEjg1T+prAE/ND3zxSpjeDJ5+XKNc81WwGT8yr
ktt2bW8GT0zrNBROnmwGT158DyJmXm8GT7bqjG1d/rQZPHlh/GrRq6Zm8GRe
+WnZek4LeDIQd3ny3iUt4MnkgyJa+ze3gCdSdZZln4+3gCdrTQXfX19rAU9G
B7x7ofi8BTwJ935s3dvRAp7cnGD5YunkVvDER27nwIeVreDJcv3z35t3t4In
G4t+X951vhU82bTHoOKvB63gyRfjDLeT9a3gyYut7pvnjm4DTxTzJ6tJqbSB
J4sFntUnd7SBJ49WXPmpeqYNPFnie0ZTL70NPPHpH7Uhta4NPDEL7X5jS7aD
J6uC0ncdUm0HTy5tp4OKrdvBE59VC9ucgtvBky5DpUHL3HbwRPxnsUlESzt4
0v/Ezn781A7wZNpHz0ev1nSAJ6uEZmXFzh3giVjGzVmi1zvAE1mTo5LHSzvA
E70pL4zm/+oAT6pWusmTizrBkwKDwUVzt3eCJ9Pm7KmxPdcJnigtE9yvye4E
T9ItDHXcWzvBE6cHfeN0Z3SBJ1ZdV9JUDbrAE/NNNx8ZHu8CTzZ+1f3gfasL
POmVZXtyPMFlXOJ/PLGSFVV76cN4stH8ytExvownI+vuV9j7Mp50t57Xq/Nl
PBH9oVLh6Md4wos94TrVn/EkSkdkUY0/48kjh0W9macZTwp3K7xNO8N4kjO5
k84/y3jSHKOS2xnAeJIn604vC2Q8maMxtvTCecYTn8LvDWODGU/Mc3/9jAth
PFEuziGNwxhPpFZ6Tp9+gfFER3LnHGEE44mFt+K0notc8OSXxpHf4pe54MlC
x9CylTFc8ITzyNffP5YLnrzVmTqr9RoXPFF0KTpnF88FT2Z+Li39lcgFT65+
n9l4N5kLnjjZ/Z17PIULnmi/e7pl5x0ueLJulU/qjn+44EmYg+4D1/tc8KT2
2NG9Nx5ywZMcKeX87mwueHLIcFnGlsdc8KRl3hfNdzQXPElIPWFwoJALniwT
iaie84ILnrSevtrQOuw38iTMIm5zaRkXPJE6qLvwVSUXPGmb8nYr9wMXPHnW
tfzdpFoueJKztyPMsoELnui/m+FH87jgiUmh27W/WrngiZep8YfyTi54ctE8
ZI7XNy54IheWaq8//P0AeeI+PyNxwQAXPPm7dHWRlAgPPLk2049WIXjgydJv
yt6W4jzwpDcpSHB9Ag88KbnhMOPXFB54on11+hvnWTzwpFHMfcygFA88EQ/+
9ihxPg88meNvW2aziAeejA37a6mmCg88sR9lXbZAgweeXAhfeVFJmweeZDen
O29YywNP2rYpbvAz5IEnglivSZXGPPBEw29cmqY5DzxxKUoisyx54EklJ3TM
xj088GS9b9D1/n088IQ7/e0d2pkHnjhaj5OMPcYDT8wfbasIHf7+gzw5vt4w
M+Y0DzwZY9/wz+MgHnhyMjwssSeCB57kDq4+qneFB568eWsw9k4CDzxRTthn
qHibB55I8qsknqTzwBOHYDU9hxweeCJ3/0KxfAEPPFkr43RysJgHnmw2uLe6
o5wHnhj2PhB0VfPAE3et1T5in3ngidP5gFzVNh544nx+kd/xbzzw5LC+Zk6F
kAeekFELV+qM5IMne4c6uIXifPBEat27UMvJfPBE4WPKbPHZfPBkcGaC7et5
fPBk1tTdaxKV+OBJ58Sh0BB1PngiXDi0IITigyfVatsb4w344Emkn3tkiQkf
PMlM1ZYkdvDBEy26x8jMlg+eKEzb/zvTiU//D0goyeM=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 1.}, {-4.208288704683761, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.407895285852*^9, 3.407900429584*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe10", "]"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
   3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
   3.40789859744*^9, 3.407898600709*^9}, 3.407900438925*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.058469014436188606`"}], ",", 
   RowBox[{"-", "0.31285217557165423`"}], ",", 
   RowBox[{"-", "0.17813246892554643`"}], ",", 
   RowBox[{"-", "0.1781324689372814`"}], ",", 
   RowBox[{"-", "0.11592850266914`"}], ",", 
   RowBox[{"-", "0.11592850380442976`"}], ",", 
   RowBox[{"-", "0.17484998577630304`"}], ",", 
   RowBox[{"-", "0.12832579342258368`"}], ",", 
   RowBox[{"-", "0.14654744205146972`"}], ",", 
   RowBox[{"-", "0.14654749161576328`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407898398363*^9, 3.4078984964709997`*^9, 
  3.407898565705*^9, 3.407900439649*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=100", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "0.04"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.001"}], ";"}]], "Input",
 CellChangeTimes->{{3.407896569236*^9, 3.407896572324*^9}, {3.407898217191*^9,
   3.407898222105*^9}, {3.407900661203*^9, 3.4079006644709997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe100", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "100"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.3918681005362*^9, 3.3918681291562*^9}, {3.407900667493*^9, 
   3.407900670525*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe100"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.3918681408311996`*^9, {3.407900742014*^9, 3.407900744539*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., -0.05783185962946778}, {0.001, -0.05783420374059295}, {
     0.002, -0.05784123508609551}, {0.003, -0.05785295073146956}, {
     0.004, -0.05786934588430055}, {0.005, -0.05789041404009836}, {
     0.006, -0.05791614718884401}, {0.007, -0.057946536073638866`}, {
     0.008, -0.05798157050900588}, {
     0.009000000000000001, -0.0580212397509989}, {
     0.01, -0.05806553292075022}, {0.011, -0.058114439477990484`}, {
     0.012, -0.05816794974368847}, {
     0.013000000000000001`, -0.05822605546917471}, {
     0.014, -0.05828875044929967}, {0.015, -0.058356031180496856`}, {
     0.016, -0.05842789755406447}, {0.017, -0.05850435359460968}, {
     0.018000000000000002`, -0.05858540823027838}, {
     0.019, -0.05867107610031044}, {0.02, -0.05876137839564978}, {
     0.021, -0.05885634373313716}, {0.022, -0.05895600906160657}, {
     0.023, -0.05906042060031399}, {0.024, -0.059169634810003945`}, {
     0.025, -0.05928371939815953}, {
     0.026000000000000002`, -0.05940275435968293}, {
     0.027, -0.05952683305588136}, {0.028, -0.05965606333550469}, {
     0.029, -0.059790568702596816`}, {0.03, -0.059930489536684554`}, {
     0.031, -0.060075984372991345`}, {0.032, -0.06022723125056285}, {
     0.033, -0.06038442914174412}, {0.034, -0.060547799470155005`}, {
     0.035, -0.06071758773791635}, {
     0.036000000000000004`, -0.06089406527834036}, {
     0.037, -0.061077531149792114`}, {0.038, -0.06126831420302816}, {
     0.039, -0.061466775345009855`}, {0.04, -0.06167331003426327}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.061500000000000006`},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, 3.3918681412172003`*^9, 
   3.407895329875*^9, 3.4079006859779997`*^9, {3.407900744973*^9, 
   3.4079007521029997`*^9}, 3.4079007851359997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe100", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, {3.3918681485332003`*^9, 3.3918681625252*^9}, 
   3.4079008017650003`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd2Hk0VVsYAPAyJJFCJPGkRCUVXqTUiUivSIbXbIhEkdKADKlEZIzMVIQG
3Wvo3pvh5hgiHZk6d8C9VzMNEo1Kw3u9dfvOO2f/c9Ze++xvf9+3fmvtdY62
xwFHL4lx48Zljx837tfz94gwOjiydXIv+u3ayAM7j01IPLvHcq3177k7YsFa
cigsvBf9enwf+0iqD/LEaXnVHNbv9YPIsjDDZx5ve9HQaXSbxyFHkIeewkD3
+QLx+8HIjmZ24ZrdAvTYS13DiTfCEDVJRdmllwTi/ScQ/9bIR64iAWr+0D4h
w/8U8ibOV3VwplAc7zSyNTBvs9ROIVr9l7yE/ploJFNJy7AuTyiOH4PInK98
N+GxEF3OaAmsvXgWGZwY2TF/rkh8Xjwy77uVOcNbhFb+EfXaoTIRkWe+kTyc
LxKfn4xEGCskxDSJ0Nw7s8oO+ZxDjo7wlWd2isT5pCCpR1PeSLeKUMGX/w5E
epNljoXXisT5nUdGolTqLegidOZikc6Ek2lIoZdJ2EiOSJxvOlIjucPVNkaE
bt+94ldExLk/T1R2WCTOPxPZH6CVsdFVhGZn/TeQVc6SJubrROJ6spHVOVI1
Jw1FaE/7Z6enRTlI8yfXDE313/XlIgy7JGsZCRE6Q2qzgkFFHrKz9kbikpdC
cb0XkK7rFbLRHUJ0q9l/ARFl54rpbxlCcf2XkLzX1iF2WULU1jTWwv35JWRl
+re4sDChuB/5yCHHLcqbXIXooMOviPmIob5HTsoqobg/BQjr4E0DSU0hGuc3
MHZtpAApGb691PGLQNyvy8ix6HozTVyA6p9R/beEy0iw1/OhF9cE4v4VIray
F7+qhQvQ3x4vl5UO/N+jaYnM1lhuD3h8ej6NdyWvBzx6xc/sCffqAY+2adoY
trAHPPb1Fkcg77vBozvbY0NQZTd43LboSddgaDd4xFUfPO837waPlUMZn52/
8sFjuZx9YVQFHzyWb89ZFejBB48Pa4beMCX54DEj65Yn4yQPPH557C3qr+CC
xyt+jCL7Ki543H1+tdauOi54DJfIcZBv4YJHXtv+qA2dXPAYvrDATrOHCx4Z
OorRp55wwWO+vP2B8EEueMxKiLFS/MwFj6dsGXKWEjzwaF7SfnqaAg88Biqj
+onqPPBoWY3YMPV44FE/M1Ti3FIeeDTCvifPt+KBR+32HpcYJx54PKo8dV2l
Jw88xtNd3jYd4YFHxEVVtS6aBx7j61P+qMzigUdNHT9aA40HHsOyM8NHG3jg
UdFV5VhQDw881l0fZ7h7hAcesy3fCV5P4oPHPG1TJRtdPngsZnmm3V7DB4+7
SlXc957AwWPZrZOWF2HujkgNr0QtTuLgMXaJcarTKRw8cmd0IL2ROHh80jG6
8FEUDh4r7B9NDYnBwePs90aFvDgcPL5YQM8PSsbB41Ney7BDJg4eNQ8r7FlE
x8GjUujq4exBHDyqew7bGW7kgMfF4+9p9HdzwGMdxWMxxaMdxaMtxWMTxaMb
xeOM2WSP9hSPIRSP89aSPUpSPNKUyB6Vq8geN6aSPc6jeFSgeHyoRPYYTfF4
eyfZowLFozLF460sskfOTrJH5WtkjwkUjxoUj2FMskffG2SPPftUue7/8xhv
jJTbnCA81lg5ndc6QXisjn7d+TqC8Chc01hfEUF4zJOoe3cigvA4pSLbLyCC
8Oi+9rP13QjCIzaw8oDtScJjVGzEW/dowmN3zV7a20TCo3zSczO1dBw86kr7
CXfk4uDR/9vxhMgCHDz6P1xWILqKg0eHRp/E+FIcPLq6OV0oYOHgMezQS1f9
Whw82t/KsFzcjIPHSeZsM2Y7Dh5/RHYGN/Jx8FiYG/XY7TEOHm0/HEWSX+Pg
sTwq3H/7Jxw8yu9NOHpnPAc8VvlW5HAmc8Cj7K7MkHPqHPCo6JIzVWIeBzx+
URrADUw44DHri+CuhjUHPDoJP6TxnTngsZgVXuLtxQGP/fvYLvxADnjMTs1X
NYrlgMfvwbz407kc8Nh9Vl1OVMYBjxqJBfc3NHPAo5TPs8CnQg54lMWu3a76
wAGPs9kF1i8mc8Ejj+aVZfq4Ezyq6Nmdt9PsAo9GHikKudu6wOOIbLTCkfQu
8IjxZf11OV3gcZ9b+4EJyg/A42PlDUv2Oj0Aj0lKF9Oz0h6Ax790toZn9TwA
j6iN6e1mTcLjlBDbUcZmwqPJPhn3UT/Co02Ou51jAOGxxVHuQn8A4XFNg57g
1/pvj7x11mHGBwmP+9O1VrD9CY99V6K0JPYTHp8rjWco+BIeXRPn+/b7EB7P
lATqxe0hPI799Hb57kl4lGeN5JvvIjwunbbqo40r4XHqw+rXmjsIj38PajSx
t+DgURGZfmy2Mw4eB63abttuwsGj2wmjSWa2OHj02JOa9swGB4/aOd+cbdfg
4JH9buCT3yocPJ4c2yuyNMPB45Hmb6qYMQ4ee1Pe//3DAAePuebn+3v1cPB4
Mxq7vF0bB4+eL1xfBanj4FF3W/LZhco4eGQn9d8KkMPBY9vI90+IJA4ei+yz
0v7vUe0td7x0USd4tLsynLfFpxM8GsS8165f0AkeX0/ekh7A7wCPZVl93Gl/
d4BH6VR/3YP328HjIYMsi9Dl7eBxhwpfRy67DTw65D4bYTy6Dx6lLg2VOo+0
gscxx9X7jiti4HFMXU2F/e/8t0dNg9P6bUoYeLxxvHpW+TQMPOaVr4j1no6B
R/k9jmrD6hh4tJ4rdWG9FgYeDTfaSQfpYOBR1iLK8egCDDx+KGvNtzbEwKNt
+q65L5Zh4PFdSNccFwsMPI5wsI+F6zHwmO+RKlnnjIFHG8ZwPd0NA49TDu+l
B/hi4HHF45r1ssEYeCw+6zk9MAoDj5sOSiVUpmLgcZl2wrSuAgw8uiwRfkcr
MPC46yf9SFQjBh4nJWUd1uZi4HHmj1pG6gAGHiujvl4UfMXAIyI/y2RUoRU8
rhl5NzowpxU8rvTb23HVrBU8zku+/9x0Uyt4TMYtYs95t4LHgz61n75hDeBx
s0uQ6bsljeCRn/tlUVlWI3gcM0hVkZtwBzwqHxsOmBx0Bzzy6W1NM4bugMeV
EvKSevubwKNPvPVGs89N4PH20/2Lg881g8ef1dMzNqy9Cx71Bg9P5Bq1gMdk
O7LHCxSPLH2yxwnhZI9xFI9nvMgepSkeuXZkj6OryR5PUzyup3iUoXi8R/F4
muJxFcVj4yGyx6+PyB7HYskep1I8ms4ie1xM8ehA8eiXSPaoSPE4neIxWo7s
MXSY7FHFl+yxI4ns0ZzicRHFI/tCxUdN7wbwGORrhbKkGsDj567WYqPL9eBR
oaNP44dFPXiUSM7/4/ijOvB41azRbsLxOvDoYWqNts6oA4+Kd/oCCrxQ8Lj0
QXZXfFIteBxq3OKQQbsNHuemtW58VcUGjwbl0qHG12vAY5iDSrqcTzV41OB0
e2cWVYLH3PS2r3EeLPA4ab+Jug/CIjweWVYQoMUCj7cY5Q15EizwaCT/KuXp
CyZ4LCv2GljxgAkeV9kkLMqvZYLHewJjpyl0JniscF5aGHmJSdzXAel139KY
4FG7hXYmJJEJHt2Oj8n/iGWCxxPz9yfFxjDBY3uR8PCss0zwmDhww/Luv/t/
e4xPOHo1Mp0JHqW62cd25jPBo9/GtqptpUzw2Hy6ofB0HRM8smo+sgc4TPDY
aiwhTBxkgsdGrRKbMzIs8Pjkzjfs4VwWeLS3UudctWGBxwhbi4wPfizwWFJ3
3ZSfxgKP16QTjOfk0sDjF942Nc0iGnj8M8W1w6COBh4T0eny9W9o4HEJigek
LqIT3zMTkqY1RNLB4/Ogjf7PhujgUbSt+pPJoVLwePeM3vKAiWXgcdQq5zzb
uww82m4vTQjoLQOP61ZY9unuKQePccsWdX6aVgEe1c9K2Kt9rwCPbu9r3q/w
Y4BHh0CyxwofskffA2SPgeVkj24yZI8tRWSPH63JHmO6yR69nMgeuQfIHqdU
kT2ahZE9euiQPe4sJHtse0L2mBlH9jj3Ptmj7VqyR8EJskcFJtnjIYrHyKlk
j6ENZI8aa8ge+/4ie3yPkj3WSpE9Bj+3FwTkEh4vLdTAXPIIj0g7u7//AuER
myczcXI+jbivmTM/dVymgcf0lQv9Fl+hgUf3PIa6fgkNPO6qMbneUEoDjzne
PrUfGTTw+BPlfWmspoHHPcGfxxvU08BjoW5x5JIWGngsaJZZ1t5BA4/Vyh0v
pbtp4HFz/tMQ/iMaeGzx2vzK8hWN+P+YVrV93QcaeGz0rFV78YMGHqW6dQpm
T6KDx9lOH26MqtDB44ah74t8Z9PBY9/4Iq/QxXTwKGgaEi1YSQePjbd6wkI3
0MHjpIXjYg5sp4PHufdi6LL76OAxf5Wvkl0IHTz+eVTRcWUcHTwWlLml9OXS
wePPlsWxS0vp4PGdx6YYmwY6eBw5PiNWnUcHj65vbi5jvqKDx5uuc6S1xpWC
xwMVq/XdVUvB46SFLU0nDUrB459qF0QJ1qXgUfJNcmiSayl4jA9qrUkJLgWP
hSZWTwtTS9F/AAJwhMM=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.4},
  PlotRange->{{0., 0.04}, {-0.4658267682823614, -0.05783185962946778}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.407895335168*^9, 3.407900803891*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe100", "]"}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
  3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
  3.40789859744*^9, 3.407898600709*^9}, {3.4079004701280003`*^9, 
  3.407900470308*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2.4620614131422984`"}], ",", 
   RowBox[{"{", 
    RowBox[{"35.267418529979466`", ",", 
     RowBox[{"{", "0.08115256439410161`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "84.97730914335251`"}], ",", 
   RowBox[{"{", 
    RowBox[{"72.65216108590185`", ",", 
     RowBox[{"{", "0.08398516679931312`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "97.9432442459226`"}], ",", 
   RowBox[{"{", 
    RowBox[{"60.99214507855776`", ",", 
     RowBox[{"{", "0.09516247272199886`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "18.252680726052365`"}], ",", 
   RowBox[{"{", 
    RowBox[{"25.25815280113652`", ",", 
     RowBox[{"{", "0.17249200087813046`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "117.64901252332535`"}], ",", 
   RowBox[{"{", 
    RowBox[{"118.02266641555795`", ",", 
     RowBox[{"{", "0.08460203416313458`", "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407898398363*^9, 3.4078984964709997`*^9, 
  3.407898565705*^9, 3.407900808865*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=1000", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "0.0004485124679"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.00001"}], ";"}]], "Input",
 CellChangeTimes->{{3.407896569236*^9, 3.407896572324*^9}, {3.407898217191*^9,
   3.407898222105*^9}, {3.407900954553*^9, 3.407900957976*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe1000", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "1000"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.3918681005362*^9, 3.3918681291562*^9}, {3.3918682208192*^9, 
   3.3918682395592003`*^9}, {3.407900962421*^9, 3.4079009654969997`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe1000"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.3918681408311996`*^9, 3.3918682568922*^9, {3.407900975707*^9, 
   3.4079009778599997`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., -0.005783185962946773}, {0.00001, -0.005783386243981991}, {
     0.00002, -0.005783986970793668}, {
     0.000030000000000000004`, -0.005784987797386421}, {
     0.00004, -0.005786388155369026}, {0.00005, -0.005788187266298695}, {
     0.00006000000000000001, -0.005790384160779009}, {
     0.00007000000000000001, -0.005792977698634519}, {
     0.00008, -0.005795966597792885}, {0.00009, -0.005799349465292088}, {
     0.0001, -0.005803124833637202}, {0.00011, -0.005807291200886903}, {
     0.00012000000000000002`, -0.005811847075545875}, {
     0.00013000000000000002`, -0.0058167910244141755`}, {
     0.00014000000000000001`, -0.005822121724337159}, {
     0.00015000000000000001`, -0.005827838017453475}, {
     0.00016, -0.005833938970090622}, {0.00017, -0.005840423932453659}, {
     0.00018, -0.005847292604702077}, {0.00019, -0.00585454510204293}, {
     0.0002, -0.005862182024015767}, {0.00021, -0.005870204525744992}, {
     0.00022, -0.005878614391070189}, {0.00023, -0.005887414108086175}, {
     0.00024000000000000003`, -0.005896606945987067}, {
     0.00025, -0.005906197034557293}, {
     0.00026000000000000003`, -0.005916189445943956}, {
     0.00027, -0.005926590277331996}, {
     0.00028000000000000003`, -0.00593740673740397}, {
     0.00029, -0.005948647234278562}, {
     0.00030000000000000003`, -0.005960321467281316}, {
     0.00031, -0.005972440521249425}, {0.00032, -0.005985016965388017}, {
     0.00033000000000000005`, -0.00599806495580731}, {
     0.00034, -0.006011600344020243}, {
     0.00035000000000000005`, -0.006025640791202755}, {
     0.00036, -0.006040205889312283}, {
     0.00037000000000000005`, -0.006055317291373847}, {
     0.00038, -0.006070998850608571}, {
     0.00039000000000000005`, -0.006087276771662473}, {
     0.0004, -0.006104179774943661}, {
     0.00041000000000000005`, -0.006121739276369755}, {
     0.00042, -0.006139989585753269}, {
     0.00043000000000000004`, -0.006158968126148059}, {
     0.00044, -0.006178715677788326}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.00615},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, 3.3918681412172003`*^9, 
   3.3918682575572*^9, 3.40789554406*^9, 3.407900978413*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe1000", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, {3.3918681485332003`*^9, 3.3918681625252*^9}, 
   3.3918681962502003`*^9, {3.3918682692111998`*^9, 3.3918682740692*^9}, 
   3.4079009829709997`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd1nk8VOsbAHBJimQvEUkLWbJNCylHaL1RsmWpJBGVJcvMoDJlJ6IZZJmN
MQkhW4qmZKlQCaFwk+1WGFlCtt/9fT48c8+cf97P+Tznfd/ned7vOZ+j4Ohx
6iIvDw9P5TIenv+PS1eOwj1n/9YM1q9LPeHFU7362/v0tBr4GIv34/oy7p33
7bQZLDc5SxNR3wX9zFnE9LDDUpwPyVnrwVcQw2DtMJL9+W23IKLGrvUpq1h6
XgQZ+nr9wK0hBqtppqaVbCOODPs/KVTfmLk4XxKJFzwm33sikyXyaUG3PlEK
YcjqnXtzK3NxPRlEunWka3lpJuuvfJ3U6RZZ5Gb6XVbuYObi+vJIk2JueOkW
Jsu4WuemhKACUqtT3Rpux1zcbzOSjRvZ9i6OyXLUttRUydqC8NEwKpdZzMX9
tyJ/98uueN/GZAVRvLoNjigiEiU5xJBO5mI+SkgF88ecTCuTRRaKibce2I44
XXo3mlnHXMxPBelw9Ux/XMFkleMfGrmHqiLN5zP0TjxiLuarhuR2ZL6fTmOy
PvfXjAdvU0c8WuuU2dHMxfw1kMy1U5+PBzBZs1m/Ppo4aiKRWd3R8q5L9Wgh
sROlxa5WTFbU15uq7QVaSCpv1TdFo6X6tJG2+F1WJhpMloyUcLDTMgyS5Xu0
/J3MUr0YxNf7g1nSCiYryyS1g31yJ7JORD0jnr3U/50Iy9h8itqWydINVtkV
QN2FBEettaS+yFzsx27kRk71RmdmJuv10yd3+Ed2I17FFQrPo5fOaw+iermw
ycUzk2X961B/HKKDWJUlXRM/lbnYLx1EY8HC21ork9Wv1KIvF6uLrLL+Yv94
zdL57kWcfslSfPoZLN+zFxIfdO1FCtVPShY+ZSz2Uw9JW6FLU45gsPhIv9gY
9X3I7dowuuhJxmJ/9yGxEu4FvUIM1pLn1D/yh//reSNBTxh5mAGeS9NjUscC
M8Bzk386ye1EBnhmKQTtcFfIAM8MB5pF+Wg6eB48FF3F8yodPEvrP7Sri0sH
z5eULC/fPJsOnt8W4Ux3bk8HzwRfcUfvITp49l2uLEDKpoNnqw8BXUX2dPAc
XW0tPvKTBp6zmlyDXW1p4Hmwcjrf/RwNPNskDk38dqKBZ3rfjthJNxp4trJp
xl7xooHn4mZGqwWOBp5vW1fGFNykgeevNUOxwWE08ByRZEH8EEsDz+HEnD9J
STTwbPukr6KbRgPPjjq3/fOyaeCZX6zgxsoSGng+r/q0h/2CBp4D49cUeNTT
wHPsM2XB2DYaeLZ373a17qOBZwa2fLhplAae/WXHKsSW0cGzT/ts8CZROnj+
pma9TWITHTxLhlSl8GjRwbNNMd/+FUZ08NwVNe9hbEUHzw2i41t+utHBM63e
wxlDoINnSXmeMtf7dPDs/jp560QhHTxLKF0KutBIB8/T3qF+AaN08Gw79ij3
1Pp08Dx5g13/BUMBz95XiT07dlLA8zHTGdK2XRTwfGMD//3a3RTwfNWB/7Kc
LgU8J/UaS+nuo4Bnusp8l74BBTxHXfxWTzhIAc+rAxc0ho9TwPON1/a6e2wp
4NklZJtOA4ECngtq9quFDVHAc4G/d8L5I1TwHJcjJLbuBRU8p3B5PsTl+SCX
Zx8uz/JcnjW4PB/g8tzB5VmCy7Mrl+d9XJ7t9qA9fxFFe17L5RnD5Vmey7MG
l+d6P7TnoA1oz8ZcnsO4PItxeTbn8izA5blfBO15vA7t+ZQc2nNHLdpziyLa
sw+X5+1cns/4oz2HBGtJv8dwPOM1TMqzMBzPTZItGu4Yjmf12ZxwBQzHs0uf
d2SDNsezNb47IUSb43l1WEKutzbHc4vkaSIPhuN5/UjKaZddHM+GUnJZavs5
nmv7xEaKj3I8y16ULD5rQQHPOnfypr+coYDnKWJZ8H4XCng2rkqdHfWkgOen
O5JpGgEU8JzSnlEhEkoBz3XpSp8ZcRTwHCZ0lIeHTAHPWvLbxVSyKeBZ/8Sx
YfUyCnheVSouI/2aAp4FWoWlxlop4Dk09VFm7T8U8Lz7TtEk7Q8FPB8aut9f
w08FzwcDSxrrRKng2eXpusvOG6jg2Sj0Y1+aIhU82/48IOGvTQXPP0uMCcsR
Kng+kVVMMTpOBc9xvmlsY1sqeJ4sLkUkXKng+ZW2y8wzHBU8569i3jONoILn
8SL3NZ3JVPDclHuzNjCXCp7blQuJh19SwXOSEcvuzCcqeCbj6PH9g1TwHNbz
YNf6FTTwjBx84rdXngaelYpj64v0aOA5Qmvf3dFlKeDZ3KSfOeSYAp75X9nl
GlelgOdVYcZugYqp4Nl8grdJOjIVPJ975nQ+k50Knh+Y7duYZ50GnjuVfyTl
VaaB57/+6kikaZLB8w45nlsBZDJ4xnq9djo8SQbPpze/ebRdiuNZzaT/jL4c
x3NAdDJuTo7jOfwYI1JYjuPZ32waf3IDx7OCV3T5GmmO56mSmQyndRzPgr7C
nxwlOJ6jiDY3hEU5nif6xPndhDiefV9olfqu4niOvxwZo8nH8bzRl/dh0gIZ
PBuZ2IRk/yGDZ3yjq6zzBBk8CzxH5qvYZPA86DRkVfWdDJ7de86Mneshg+ch
gQmDex1k8Pxbf9UxmxYyeI7Bvc3LaSCDZ5fhWVpYNRk8e8rENfeUk8GzpcVh
76eFZPBsamQowfeQDJ4xGD/6EwoZPBsbNli8J5LB8xi9KkY/ggyet17c1TAT
SAbPe9S6ImY8yOB5a8YGWS1HMngufytAijEng+chnTESnzEZPH9HQuRvYcjg
WUarMuy/nrsyB3ReU5PB87vXxo3N+sngmSTTg3H6ch88P+xd+zLB9z54Xvu7
U+Wg0H3O/4YUsaohLQk8h3nuK3yklASeZXpdp5MYieD5Aw0jWiGcCJ73PAqe
TD6aAJ75ea17xNqI4PnPcsfd31qJ4LnYsKzb8t/4kue55XLXr7QTwXN08afn
274QwbOdRSie0EkEzy1GDsk3vxLB84ktZUqbeong+fvVV8iFf4jgWdTrotTR
ISJ4TjogOt04SgTPOlq3jOaniOBZkO1w6d0CETxvGiD9MFxJAs/XrtvY24uQ
wPPzH632G9aTwPOxORtSkAIJPG/5+Lk4WpUEni8fGvU02E0Cz1cE/vilHiCB
Z6KZmSfNhASe5yi03ydsSeDZ8C++Ow9cSOD5mMVAQrYvCTyrCcWY2ASTwPPW
GwJFBfdI4Dm843ZEUToJPLddqdA9X0QCz2uLUutKqkng2XBrRUNhKwk833L5
bWD1g8T5PusPB6XMkcCzw6khlSCxBPCcrOi6nEcxATxjfOYqiGIx4PmOK2vi
Q3EMeB6JrWnCn40Fz+uSDQ748N8Fzx/b3P52OX8XPAc593brvrwLnn9ihBhh
SnHg+WVUxJX3CXHgeV4Wo3NGIh48d5H8xecZ8eCZXNY4qHHpHnjGzVihPMvM
nkd5bjiA9jzN5flCAdrzDi7Pj7k8b92M9uzF5TnKA+3Z0ADt+ZAm2vPgMNrz
gX60Z8VAtOc0Ls+Vs2jPq7g8u3B5TuFDe5Y+ifb8i8vzl2Noz3XmaM94QbTn
/Otozxu4PFO5PCcVoj2bb0J7Nufy/FUX7bnTFO3ZXxzteb032rNDLC813fMO
eD7NyBGfa4wGzzunB5rzd0aD52w/6w8fEqPAM23ftj0X/kSC54QZhdun7CLB
M+vbdc3TZRHgOe/I5YEO8Qjw/BHXz3x1MRw872L0pq/KCwPPa5TYaZPfQ8Gz
wTXjT/uFQ8Hzk3ZC1DOBEPCc+FY9rz71NnhuOSmni2kkgGfVjsembo8J4Hko
vz2UP4EAngNf7R6eDyCA55fsMLHjTgTw7FrY/HnAlACeRb+J+DToEcBzFNVJ
fVqFAJ7x9JCrl2QJ4HmwNDxBWpQAnsm63cuE+Ang2Th5xwgyHwSeVY+lE0qm
gsCzamNnntdEEHi26Jw76jMeBJ4r+ydHX/4bX/J8Gye8+dx0EHh2PeexzWwh
CDx/xM8pklcSwLNqtSnGRJwAngvqpwyd5QngWa/i4KFRdQJ4jiT6YWYMCOB5
3rdGKtqSAJ7fFziqFlwhgGdvBfo/2FACeJaNq1dk0wnguSSpWUepkgCeDS0D
RbV7CeCZ7enhvEXgFnimU/cry+ZjwfNhM9efMqVY8HzWutocU48Fz3JThV3P
2FjwTHZ3XHV8Mw4853zvqHzthAPPmPdVFvgnOPD8syI+RVkeD56vq+E9L6Tg
wXPzZx98k6Y/eE75JZa9ss8fPAsSHCMXXgSA5zcE3h8rWgLB87j//PjqgzfA
c91m/3WrjwSBZ79NaM/ZeQUozw55aM9CeWjPjd/RnjemoT0f+or2nJOG9qyX
jPZskof2fF0R7Vk6Ae35mg7a84m3aM8rOtCe17WgPYd6oT1vtUB7njRBez5T
hfY8XIP2/LYM7fljNNrz+Fm0Z9kstGdJabRnQhTas1k02nP3XrTnnitoz+fS
0J5H264NmuVzPKs+klQfy+d4tj1u/2mhgON5wWfvc2whFjz7MDTzbYux4Pms
KM31wb/vx5Ln5eFaqQ5PseC5O7GWfasCC57LeR7yibzEgufpkzx+fNVY8LxH
htjh+AYLnkse9zcqv8OC56cz/mOnm7DgOajmQj+7DQue174SsRvuwoJn62RL
MYs+LHheOXunY9MgFjyHC298YDGGBc8md0cC2H+w4Nm9VIfwixcHnlm51ivt
VuPAc+S6nnA1SRx4LpxqyXeWw4Fn+v22c4JKOPA8/k9JwXotHHj2E17gvaeH
A88z7Xm//Q/hwHNirXLgRzMceMau3NuScgYHngkjl1LbXXHg2X6lb12MHw48
x0ttrHx+GweeW9ZomVyNw4Hn77mzuWQKDjxrZqnSrR/hwPNXO6kraRU48Hy+
8dkX3wYceMZZHz490IkDz5ojN35MDePA89uzAkce8+DBs7Lpm783SODBs6LN
zQF9RTx4Vm7qcNu2Fw+eWZjD9p9N8az/AVxD5Qg=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.04},
  PlotRange->{{0., 0.00044}, {-0.04661195220829142, -0.005783185962946773}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.407895546406*^9, 3.407900984587*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe1000", "]"}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
  3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
  3.40789859744*^9, 3.407898600709*^9}, {3.407901009199*^9, 
  3.407901009593*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2095.8838634150966`"}], ",", 
   RowBox[{"{", 
    RowBox[{"29274.435731647245`", ",", 
     RowBox[{"{", "0.0008782560571501764`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "75732.76221382375`"}], ",", 
   RowBox[{"{", 
    RowBox[{"57809.6374892535`", ",", 
     RowBox[{"{", "0.000938680110069571`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "82493.27606811836`"}], ",", 
   RowBox[{"{", 
    RowBox[{"50916.30927182896`", ",", 
     RowBox[{"{", "0.001033314583432997`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "20711.943546265502`"}], ",", 
   RowBox[{"{", 
    RowBox[{"17894.386087000734`", ",", 
     RowBox[{"{", "0.002116585912219928`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "106665.63580393228`"}], ",", 
   RowBox[{"{", 
    RowBox[{"112583.85619545283`", ",", 
     RowBox[{"{", "0.0008619649783123528`", "}"}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{
  3.407898398363*^9, 3.4078984964709997`*^9, 3.407898565705*^9, {
   3.40790100145*^9, 3.407901010321*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=10000", "Text",
 CellChangeTimes->{{3.3918683120572*^9, 3.3918683130062*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "4.48*^-6"}], ";", 
  RowBox[{"d\[Kappa]", "=", "1.*^-7"}], ";"}]], "Input",
 CellChangeTimes->{{3.407896569236*^9, 3.407896572324*^9}, {3.407898217191*^9,
   3.407898222105*^9}, {3.407900954553*^9, 3.407900957976*^9}, {
  3.4079010563789997`*^9, 3.407901072785*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe10000", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "10000"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.3918681005362*^9, 3.3918681291562*^9}, {3.3918682208192*^9, 
   3.3918682395592003`*^9}, {3.3918683179522*^9, 3.3918683702552*^9}, {
   3.4079010548710003`*^9, 3.407901066672*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe10000"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.3918681408311996`*^9, 3.3918682568922*^9, 3.3918683780942*^9, {
   3.407901085979*^9, 3.407901087105*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., -0.0005783185962946784}, {1.*^-7, -0.0005783385878046013}, {
     2.*^-7, -0.000578398550550665}, {3.*^-7, -0.0005784984498901519}, {
     4.*^-7, -0.0005786382288743879}, {5.*^-7, -0.0005788178098151125}, {
     6.*^-7, -0.0005790370952926222}, {7.*^-7, -0.0005792959712213958}, {
     8.*^-7, -0.000579594309140074}, {9.*^-7, -0.0005799319694606964}, {
     1.*^-6, -0.00058030880507764}, {1.1*^-6, -0.0005807246653995028}, {
     1.2*^-6, -0.0005811794007250217}, {
     1.2999999999999998`*^-6, -0.0005816728672079131}, {
     1.4*^-6, -0.0005822049318055014}, {1.5*^-6, -0.0005827754779881756}, {
     1.6*^-6, -0.0005833844114449548}, {
     1.6999999999999998`*^-6, -0.0005840316662291924}, {
     1.8*^-6, -0.0005847172111588645}, {1.9*^-6, -0.0005854410563962683}, {
     2.*^-6, -0.0005862032604463889}, {2.1*^-6, -0.000587003937058932}, {
     2.2*^-6, -0.0005878432627733294}, {2.3*^-6, -0.0005887214841998643}, {
     2.4*^-6, -0.0005896389259711655}, {
     2.4999999999999998`*^-6, -0.0005905959983602212}, {
     2.5999999999999997`*^-6, -0.0005915932056465517}, {
     2.7*^-6, -0.0005926311542942403}, {2.8*^-6, -0.0005937105615582605}, {
     2.8999999999999998`*^-6, -0.0005948322643233837}, {
     3.*^-6, -0.0005959972281048769}, {3.1*^-6, -0.0005972065566165983}, {
     3.2*^-6, -0.0005984615014778923}, {
     3.2999999999999997`*^-6, -0.0005997634725325962}, {
     3.3999999999999996`*^-6, -0.0006011140485943284}, {
     3.5*^-6, -0.0006025149888442209}, {3.6*^-6, -0.0006039682449095622}, {
     3.6999999999999997`*^-6, -0.0006054759738024765}, {
     3.8*^-6, -0.0006070405517929653}, {3.9*^-6, -0.0006086645894547438}, {
     4.*^-6, -0.0006103509480039126}, {4.1*^-6, -0.0006121027572283295}, {
     4.2*^-6, -0.000613923435164016}, {
     4.2999999999999995`*^-6, -0.0006158167099617329}, {
     4.4*^-6, -0.0006177866441337193}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.000615},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, 3.3918681412172003`*^9, 
   3.3918682575572*^9, 3.3918683785612*^9, 3.40789556145*^9, 
   3.407901088259*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe10000", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, {3.3918681485332003`*^9, 3.3918681625252*^9}, 
   3.3918681962502003`*^9, {3.3918682692111998`*^9, 3.3918682740692*^9}, {
   3.3918683985682*^9, 3.3918684021802*^9}, 3.407901094*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd2Hk0VesbB3ByS1SScFPJVEikjN1oy9lKOhQylnKOcZ9Jzkk0aaBBmbvJ
TZnKTKZIyXUkU5R5iESTBtWtcIxX/fqt5Tzue/Y/e33Xu9/9Ps+zPn/stZXc
Dtp6zhESEqoUFhL6/51/bfyUreCW48vdkVcWN9R1DLNeE+eQ2szPlzDMsPfw
Mp4v1z940QhP6Qo2J3lqS6cce2Y9DrvdGPtiHGNzw78UJ43VJGEyuRnn4jzY
M8+nYK6q48qdl9hcVzlP85ET6dhC8VpebQF/fxbWpynyOrybzd24Tfqfbzq5
WJ5e2jzzOZyZ9+VjEWNirks0Odyge9R6f79CrFtS9qWwI2fm/UWY9A57nYXB
HC591335w03FmOiVcuu7eZyZ80owC9PhSeXnHK7dW0n2IY37WIzdb28TfnJm
zi/F0rit0u+XHuIaHyOq2OfKMPo11Rcpvx+aqaccG/+z2Pqk1CGuqmTF774v
uRgve82kjdihmfoqMP3RT+aqPzhc0bZQ/ZL4h9itGhX7ju/8eiuxj8+o05Vv
Odx/4w1dDciPsLltorUKXfz6q7D6OFMLkccc7jfiTUjxeBW2cr3s9YBSfj/V
mJnSytsnszncAd3IQr20GsxERW5Q+ga/v1pM10XrjE4Yh9v9Y3PvnT11WP6e
NaMNx/n9PsY2PXli0krncBsfv5urK1yPFRkZXdFx5vdfjwVKdHzp2M7hVl65
rF2Y24Alj83dnqTLmZnHE+yfxOUBBxU43BJXzHmjy1OsJC85U06cMzOfRmys
dLkiY5jNzdYYDMoXa8LSJ5TkVJ6zZ+bVhBlZjth/rWBzmyd3dsbua8Z2GH8M
90zhe2nGooVPp06cZXN3vlRkOOq0YNYp5Mf/UNkz82zB3OLuhm/dzOZWVY/+
lBVrxeQ6jSNPL2TPzLcVO5LpO5TR6cvleyaNn0ig/sczZ/5W0saQWc97Fm0t
Gnaf9ez69WvPWRNf8Hwxm8i4v9wXPNcF1x8vHTwInr9VU6ydEg6C5/xRs93X
dh8EzxNLVFOCpn3Ac2DCUGdimg94jqqVEL22wwc8jxqWVGv1s8Bzv0KvxxcK
CzzH7WjJcsxhgucbDfKLOx8xwHOkYf/giwYGeLaMcj9S0s4Az51aUUE2fQzw
HP3ZIj71AwM8n5UqP1g4zADP0pEk6tGfDPAsdYcdNb2ACZ6je/c443JM8KxK
7VW0VmOC52gdme0aBkzwHLbxb43ubUzw7JAsY+XpwATPvViR7zNvJngudE3r
3HKMCZ4NYhZeuBnOBM/C5avyZW4ywXNNULJiZgkTPPumJb1jNzLB84abRgoX
3zHBc8rkZvFFQizw/IypFqi8ggWeExJK+kcNWeA5/seb75UOLPD8mu5b0RjA
As/WrVeJgOss8Pzyk+ptw0oWeFbxp48VfWaB57qOQKW2FT7g2S2pN7zF2gc8
b9OVn3sw3Ac8V/7F9bUYJcCzVf0q6VDIlzD/3+JVbMYI8PyHY7174jgBnluC
9/gEThLg2UP9bPHEvwR4ft/Tu3WjEA08j8x7F+X1Gw08h37L+OogTgPPV7rs
XCekaeA5oywrJFePBp5Fr0Tf/nyJBp6vfk8rj15EB8+bqo5wtj6lg2eqgOdk
XdTzrkjU81lN1POqRtRzkCTqGYtAPQ8Uop41BTx7UVDPEQKeJQU8rxbw3Czg
WUvA8xwBz9WlqGdZAc8PrqGePyajnp0EPE8xUM+Pb6CeNwh4HvRCPWs2o57H
3qOeTQ+jnm2aUc8qCahnvY2oZyIG9dyVEWxh8h/PLc9/MpRGZz3LqLe3fufN
eq4qMI4o4s16XlWrwmLzZj3vcT/31fBX5ns+qSydsxb2Z2GeN3J84n5lvueI
Bx3rz48R4LmrIL2rbJoAz6xMxveHorOebx7D3MwlaeCZoq9//8XvNPB8xXyn
yAEFGniuW9IVoKRGA89ZVh6LbbRp4Dn4UzBNZBMNPG9npOw1N6WB5/QV9qvU
yTTwXKC70DDPngaeeyqV9g1QaOA5h6TEa2XSwHPIdWHf00dp4FnazIE2ep4G
nkvwk51bYmjgOWLBKxVKCg08G0gF2noX0cBzd0ye7IFqGnhesj9mcncXDTyX
7TA/bzFIA8/khEBfpx808HxapqwndCkdPKeHro8fWUsHzx7KvPRUUzp4XtKr
GFS0lw6eL0tdGvrjMB085/sKD9hG08HzG/eODKU8Ong2808raWqkg+dw+7Q9
Ud/o4HmacSMkRZoBnl/FRVymGjHAc8/fCtlGngzwvKmMFtZ9mQGeF5EVL6hf
9wTPfZFOz7gfPMHzatmShiQDL/AslfwkQv+cF3iWeDR+7kO7F3ieEn5dpKbq
DZ5bdFQn3I96g+cMrTEdoSZv8Fwav9J2THXW81NLcZuek7OeLcLG7/RVz3r2
f+LKcOonwHNWyZwxvbcEeD56uSL06VsCPLt7+DEkfmW+Z+PhzKLM1wR43mnK
+djzkgDP+T9vbivtI8CzrGdlrm0vAZ4zkqVkMrsJ8Pwu2tGD20mAZ4/Vzzpj
2gjwPPU66Ma6ZgI8nw8R1T31hADPGsKsqxF1BHg2f8BxcawiwHOxUtujTi4B
nunzFMrEHhDg+Xhtw4fPxQR4VuQMJJ3IJ8Dz/grjz0VZBHim7bp4MjqFAM81
GVX5ixII8LxWs+/I6lgCPFuMtLk2RxLgubNKzX9BCAGeFxQnbG86RYDnSn/1
WukAAjwXWFWat7MI8NwvI+0614MAz6+F/doTnAnwvPZpz/mruwjwHPpF3foV
iQDPTzqev+EYEOC5N4OXvmUtAZ6l6X1O//X8/u5mE4bVrGf1BEP1RT89wPNK
x+H5J/M8wDNv8PR38QMe4Nl8nlpMrZgHeHa/2nrPs8AdPPeKxxa/sXUHz9iB
xPrGQTfwfGHVaKgcxw08h6ve63Fqp4Ln9ICcmx05FPAstuJTWe6vzPfsbld3
RPw2BTzj2kNBH35lvmddXljSjjwKeBYr872tUUABz7ZfKuIi7lDA84vFj1h+
dyng+VBqL9Z7nwKeDyxP3VTzNwU8n8ofv6pTSQHP1C1TqUq1FPC85ORkxZ9P
KOB52E3B5mIrBTyfn9/fMKebAp5l/eUKhF5SwPOu6Y6Q4PcU8Py05+LL0K8U
8Jz4qNN8+TgFPK+ryrbUFqaC5w0lhf4N4lTwLMwZMv0qTQXPp5zCll1XoILn
K5uOkZs0qOD5Fm+DeJgBFTzbPRR3biFRwXOAh8u8xN1U8Fz3annCiAsVPHc0
TOxroVPB8889Qyv0jlLBs9+39RYrQqjgmfY7o+FsLBU8X6sdGWKlU8Fzf16O
e1sJFTyPjU3HSko4gef1l+Zu8o92As9qRUfeey5zBs+Ta+61Dd9yBs9b9/7s
Oq6/FzznZqlhjY17wfPHf3l/nubsA896n3W9o1a7gOfGU7UH+z65gOeJ+Xcv
nencD54ftjdnWS5yBc/kw6hncTnUc4M56vmwFur57QjquTMF9Swh4FlbwLNx
CuqZWIZ6VhLwLCTguS0Q9Vwl4PkPAc8Nh1HPEgKe87tRzwWVqOfIR6jnlruo
50I26vmyI+p5nSHquXAE9Xy/HPWsK+BZ5CXqWV3Ac4GAZ18Bz3WyqOewGtSz
RCbq2YGHeuZNZO6zCncEzwPGh0iuEo7gGaceXXo+ygE8U4dZtiJLHcCzt3WX
yuIYe/CcqoCdapCxB89JdYkaulfswLO5721TocV24Hkd78b3M2f3gGf5ptvc
XUO24LmhRd/wlp0teB4zfBfXmWIDniPUEnOJdmvw/IxSc7+bshs8lydmDIaf
sQTPzrItd02tLcFzr0/dt8fKluA5Ndtw27IJMnjuopnVKraRwfMSh+Z73flk
8Hxw/4V9RpfJ4Pm9MP7YJIAMnm95C7W9diWD53MxjgNKlmTwXOQlPzRlRAbP
dns9D7C1yeA54WT1SLAqGTz3p9KfGyiRZ//XKXeERyiQwfNfZmo9Ub/W+Z6/
arW9MlMjg2e3xDr5OxvI4HnNkQVeA1vI4Pm10fN/3+0ig+fd68/EV7mTwbNa
+URE2AkyeF5vW1C66xoZPOtJ3apdWUoGz8U/tDeL95PBs9dilWua8y3Bc6QZ
5a/r+pbguUH2jQXb2xI8n9tXbl8fbwmej4nN21zzzBI8axTElloMk8Cz66vn
o6/GSeA5tomp9VAMB8/aYqaRmqo4eJ7KzrWK34WD5xeKbpfrg/FZz3W7dUpr
cPDcp5cj07vMDDxzF1mpbDphBp7FB8w+lg+bgedLT/pEXwdvA89X+5x82nW3
g+fJqiHxRElz8Jw/vDtdxHAHeF6NxzqkLtwJns+7oJ6LFqKeM9xQz1vOop4D
vFDPOfao51YR1LPWDxLi2d8L9RwThXruxlDPrTao53UCnk+4o56LZFHPkSao
57cqqOdvIajnHn/Us7M+6llME/XsEoZ6HsdRz0Y/biKeB96hnn0WoJ7X4qjn
aknUc4Uz6pn8G+pZRcDz1qvimX7Ds55f9X5g8X5lvueYadXRhhESeFZR91ce
55HA82SxYt3RMRJ4dlv4V4H1BAk844tXJ52YIoFnKn2N1fQ0CTyzn/cxWoVw
8Ny6gp09JYKDZz9rqftHRHHw/OXtYZLFAhw85+24MM5cjIPndR7Kl98sxcFz
npJhU84yfPb7mf75eJ08Dp7fSAn7Gajg4JmZbJ02qo6D52lL9jIxbRw8t3wJ
G2Tp4+B51EVz3xpjHDzX2exv0MZx8Cy/8k5l+E4cPC8oSR02scXB8+PPD03M
9+KznqtJZSluOHg+HRh115mBg+fcv6fuefvh4Hkw5lpkcyAOnmsNDayuXsDB
c0d4rPWDaBw8u+9rsyDdwMHzqzNTJuvTcfB8x2xebFAhDp5rXKVk8XIcPF8c
Ev/nUD0Onif8qirkunDwnKwZn/HHWxw8C+VXbu3+joNn3f1auT9+4uA5K+94
Zr6EGXhmHH50cVTeDDwfN421fqZlBp7vPNtbcgAz4/4PVvmfOQ==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.004},
  PlotRange->{{0., 4.4*^-6}, {-0.004661220550053672, -0.0005783185962946784}},
  
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.3918681630982*^9, 3.3918682747232*^9, 3.3918684026762*^9,
   3.407895571512*^9, 3.407901095157*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe10000", "]"}]}], ")"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
  3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
  3.40789859744*^9, 3.407898600709*^9}, {3.4079010996029997`*^9, 
  3.4079011002130003`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2.0909303310304433`*^6"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.928948938216311`*^7", ",", 
     RowBox[{"{", "8.778773379855245`*^-6", "}"}]}], "}"}], ",", 
   RowBox[{"-", "7.571767957429554`*^7"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.781127391331685`*^7", ",", 
     RowBox[{"{", "9.386395740246682`*^-6", "}"}]}], "}"}], ",", 
   RowBox[{"-", "8.248988326052985`*^7"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.0915419356484145`*^7", ",", 
     RowBox[{"{", "0.000010333244694633116`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "2.0721224246687904`*^7"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7890127274600875`*^7", ",", 
     RowBox[{"{", "0.000021168511211378003`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "1.0667295162014396`*^8"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1261964550033817`*^8", ",", 
     RowBox[{"{", "8.618343497985397`*^-6", "}"}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.407898398363*^9, 3.4078984964709997`*^9, 
  3.407898565705*^9, 3.407901101116*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Omega] = -1, G=4", "Subsubsection",
 CellChangeTimes->{{3.39193441062*^9, 3.3919344113900003`*^9}, {
  3.3919344932320004`*^9, 3.391934493289*^9}, {3.403841397245*^9, 
  3.403841398413*^9}}],

Cell[CellGroupData[{

Cell["Re=1", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "1"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.01"}], ";"}]], "Input",
 CellChangeTimes->{{3.407896569236*^9, 3.407896572324*^9}, {3.407898217191*^9,
   3.407898222105*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe1", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "1"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", 
                RowBox[{"-", "1"}]}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, 3.3918679703932*^9, {3.3919346147320004`*^9, 
   3.391934614784*^9}, {3.4079017092209997`*^9, 3.407901713166*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe1"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.4079016478900003`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9kgtQlFUYhkkUksREpXN+s3UslIs3RFRgkXdCc5ncBBS1EItWVCIsvCdi
5JAKIykk5W1CxkWTidiawHBF53BR8rIml3VVQNnlIpdlwbEFBh2N3c7pm/nn
n/Nfvu993+ebqvpyxYYRDg4OG4Yv210Um7H0m2dTCdszsUhhTP4Wftqv33rt
bXHOgeNMhTVw+Fwq298dWZqLwegh5/T/3+fjebTfauvw+eQJWxUgsbG8ed87
4vsiON+/fH6WB2HmSNuT38Fyt2sGPcT/xbixaGu/aRphLgZ10iKXP+EvT001
Txf9LsK3JE/p7kWYd8yRCqtXGd70prHrvEX/K6gPWV9W5UNY/vDfBjWDtlwe
t2ymmFcON/mx6CezCJtnr0ocfnruzIU5Yn4VdGoDTs0lrNLqNTzhKsykZv7p
eUJPNfKCdqZXzCdshX3gX+g92CofFSD0XYfs4baoTUGEGZNtDW/AJ/jC3Y5g
ofcWLm/eVZ0BwrbY5CXpUJlbNuP9UKH/NkonVb3q8x5h/9G4g+21I+O8w4Sf
O2jznL04bBlhYfYBNdBEeRYeWC781WCr7PWzrZGE2abFHKlFyRq5v2qV8FuH
5bsDYl9+SJjdjqEO49yvzymLEf7r8SSrreB4LGFTbHJkesxYfkmfEyfy0ONC
YqH2t3jCNm201V1oZOGx5kSRjwE1SzbfVmwhzNZtYpEByh8dXSt3iLzuIWrp
ux4fJxPWb2tnvYds1cHJUqrI7z4sv8a/eJpGWIi94QMkOZ2rtaSLPB+AjvQ/
M/owYXZ5+xtw+ea8nUuOinwb4XvXuub0ccJ0t2zViIbwwYhJuSLvJrz4qT2h
RE2Yu13gQ4xLPq5JKhD5P8TaYDdvpYYwe7uYR4hxSzUqSgSPZqjlQS3rLwk/
zfDyrwrIKxd8mpHed838vFr4a8YH3RNckm8LXkb0x6lPEb3wO3xOOFqobxD8
jFC6eYYVm4R/EzJVV3f/0Sl4mrDkxKCyrk/kYULQ+M26CYOCbwtKtvU57Xgp
8mnBzUNJowacKOfdAm38UP2JsZTn1Yox2y7uW/cG5fxbsdqln4TKKM+vFUEO
7vmK6ZTvQxvuPfvB74vZlOfZBufa8XdKFlC+H224NCskQwbK821HYbYp4byC
8n1pR7bMuG9lBOV5t0OW49sw5SPK9+cxTvY1pLmqKM//MbZ+9krG5M8p36fH
0M6tGVBup5xHB86GZzbl7qWcRwdG+KQpxh+knEcHqvMmLv45i3IeHXBUFTat
O0k5j06kOFd4LMinnEcnmjIM03yLKOfRiUc9uyzLSinn0YUpngsyMyooy7Lz
6ILboV/GdN6inEcXQvfs3JtgoJxHN6LHBZpdTZTz6Ib2yrGNdWbBoxuudQuH
tAOChxnqsVeKq0ZInIcZwYE6dZ+rxHmYMaAZqQ+RJM6jBybji1UaD4nz6MGN
a+H+ob4S59GDtSlpewfkEudhgSJnMv5WSJyHBQHF3x+4vlLiPCzY8k/Ep+2f
SJxHL6oDixunJUqcRy9Sro52Sv9K4jx6oUv5rmvMfonz6EPswvhjxdkS+xet
fgYU
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -6.4},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.3918678286452*^9, 3.3918679807111998`*^9, 
  3.391934632418*^9, 3.40789559985*^9, 3.407901654425*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, 3.3918679915962*^9, 
   3.407901653999*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF2nk4FW3cB3AR2iU05xBFynrO0V5zNLdQaO9JqUSSRCW02IUiJMtTSpZK
WaKEipK2U0QUJUkllX1JkgqV9Kr3mt889/zxvvOP6+scM/f9+851fa7jjKqt
8z9bxcXExLolxMT+/KSPgP5Xvk4bjEXe8pkmdV6BKH6ExVZXyNFISrlP23cw
56kEfViVdxrpxdWURMHryWjiOGPDjMEcF/vnSEdPT0VEP4H3Z6Ls1un3fgzm
jlV/fnMZfR1b8JBnSf99DjqV8OGiw2AeUZ3kMn/EdbTKYc+Oi5b0+W6g9EDh
sJ7BrLUx8v43zVsoWxMdNN1In/8O4gYfqz03mJMH/7o6SYSmX97GkbSir3cP
fdo7dJbzYJ7x9yhAVrzHM+us6OsXoqGnSK6ltbGo4Jvm4BUeoJybjQ1vrOn1
FCPXII8T9puMRf/8veBDxC24Nb1vE72+EqRXFZX/r42xqM7rzwlLEX9Ph2DG
Znq9j5HMrnfRbwaz65/luZShY07/fgi3pddfjq6nLZhtssVY9L9tPEUTTy1y
H2ZH7+cpMrg3+nLFYDb9e4EKVDpdqfncVnp/Fahl63Cuj72x6M/VNkY+QxNK
QpZabaP3W4ne7tp0cJGDsejvdqorUVyGg2iOI73/50gxP1pq2nZj0cQ/y1Gp
QvOWtK6bvoOeRxXS0fTJF+40Fm2z/3O8QG0iH/4yJ3o+1ajytlae/S5j0Z+z
yWdWo+awqg0hzvS8XqJxLY3cKy7Gop4/p/v2ErnYlPc1uNLze4Uu1nB/Ku8x
FlF/T/ga2Yy3UbfZS8/zNfqmvNjjwj5j0d/lBdUg8ZKoH/1u9HzfoHPa/ZkW
Hsaissd/jjeoVXJLbL4nPe9a9HvehdtTvI1FCn8X+BaFCQonxvrQ83+Lqudl
F8jvNxb9Pd3Gd6htwPPSST+6j/eIrJ5bpx5A7+c9stWW2XLjAN3Pe7SzRGvO
2kB6f+9RrfHdzT+D6L7qkJ6hTEtaML3fOhRRsvmRdSjdXx1SjZGSUw6j91+P
BmzN7zccofusR5O102qvRNDzqEcSe+0cD0fR/TagqONdjtuP0vNpQPqd1xv+
iab7bkA/tbRqjE7Q82pEgZ655vNP0v03okuPn5ijOHp+jchTuuOdWQJ9PzSh
/Hn7f2w8Tc+zCcU//Z7mkUjfH01I7uHTTwnn6Pk2o5Sa3ZUlyfT90owm5ixd
9zuVnnczGkMUH5ifTt8/Lei+zCKLwIv0/FuQl4rm68pL9P3UghpsH8joZtN9
tKKgp7v6j1yh+2hF+6c6Jffk0H20ogf+YqMcr9N9tCIj5U1zGm/QfbShy7dy
tB1u0X20odci1favd+g+2tCBTfmeh+/RfbSjoU+CajULjUVRf/toR14evtyn
RXQf7ShL+8g0/xK6jw/IaGW41rzHdB8fEKG5VPJnOd3HBxQhdvDhgwq6jw4U
s++1W+xzuo8OlH6tVc6tmu6jA50s1kuyfE338RF5PFPVXFxL9/ERDewen7rg
Pd3HR1Q50nySYQPdRydSnzIibkkz3Ucn0ixdNd66je6jE73o0j3p2UH38QlZ
fwtSO/2J7uMTulbJz3vUTffxCf0g6izFe+g+upBdt/5Yw+90FhN72VG057+e
bBqOe1KoiHtSF4t7UjIG9+QxyxNtlicJMrgn+1ie7LXHPXFmefJJA/fkexDu
yTSWJwksT6RYnlxPwD25zPLkSiDuSct93JORLE8+78Y9qXLCPVFheWLL8kSW
5Um7CPfEm+WJgOVJ40Pck2P/jyftN3BPhrA8eaWBe3KR5cnnW7gn9ixPGppx
T2qtcU90X+OezFXAPcmZgHvypQj3ZL8m7onvUNyT3XNxT1azPIlkefKA5ckU
liemLE8MWZ6IWJ64LsA9sWB5IsbypJPlyWct3JNfe3BPeqNxT3gsTz6wPPFh
efIPy5OlLE/8WJ6sYnlyrxj3xIbliSzLE6PxuCcuY3BPVFmevGJ58uEK7gma
jHsSxPJkBMsTTZYnkSxPdFieVJfjnmxkeXKM5Ykay5PfGrgnMixPvFieSLI8
8WZ5glieuLE8iWZ5Mp7liRTLk+csT5RYniSxPOliefLjM+5JT51qarIHBZ4c
Mnsongk5Gh1YJ84tHcy0J/JuyW198HoySosf60Z6UuDJlU2zRRGeFHgSX3e0
9Ntgpj2xfKR30tmLAk8kjNJ0+wcz7cm0FpUj8d4UeFJy0+TmMh8KPKlV3nJ3
nC8FnuzNpU63D2bakweWs6yr9lPgyesRAqlKPwo8cbmbeKrBnwJPsjcf0ZU+
QIEnJqf8b84/SIEn2oUnVwcHUuCJwWmfgYYgCjx5ZGRTtDqYAk966yWuvQih
wJOJkVdf7jxMgSfzexeR449Q4EmGQLXlWTgFnqSs1es4F0mBJ3WmH9ce+pcC
T4qMLGf5HqPAkyxf6RPBxynwpOzasJCUGAo82VU8oFgdS4Enp0eO2zQhgQJP
Yuq67fadpsATA6lX8+sTKfDEt/XAT9skCjxx6pmZ3ZtCgSfXHuXtSkyjwJNY
m42LrS5S4InmpM9r+ZkUeDKhvjRN7jIFnsg03DEfnUOBJxrn1FyUrlPgSXV8
6VgqnwJP5KWGL9t3mwJPfq3PEN4TUeBJ4utfX1QLKfAk4vPd8JhiCjw55a2r
qvaIAk/cm7uL7pVT4EmEyeyTbs8o8CROGJZp8IICT5blfps86TUFnijGNo9T
eEuBJ2Zm805MrKfAE4cveiWomQJPjhbvK97XToEndr9kL93rpMCTipxdJyZ/
ocCT+rMrE+N7KfDEPeJ5i1Y/BZ4kZu44XC6GwBODO9UpoZIIPAn+MnWd5QgE
nqRkZt01kkHgySqJUT8N5RF4kiepoLWei8CTl5W1DodUEHjy1C3zVelkBJ7U
eg7ETdVC4InrMufHsXwEnrzbUhSuPhOBJ1HcloGieQg8kVz9GAUgBJ48qwtw
Wb0QgSfzkpUvz1+CwBMHuzxVg1UIPDnubF+/wQKBJ4a9ArkIKwSeHFYd/vzV
FgSe+LwtMaa2I/Dkt9eUoJsuCDyJ+3Q2Z5U7Ak9udkZ0i+1H4Anvar9VSSAC
T0KOXlG4GIbAk9bFU+amHkXgSeEEp4b8WASePDwvnNWWiMAT36iKxdPSEHiy
8PMXg2NZCDwxiqubIXMdgScLJpuilDsIPCHK5+5fU4TAk8glyiMnlSPwRLAq
4/fQFwg8MeW+3Tv0LQJPWkreH1BpRuCJWv6oBas7EXiy5s7LB+d6EHjybWX5
1NG/EXgi30bpl0gYgCfytbgnAxfLNdP/48nuoPbsa//x5NnrXKrsP54oNMQ/
6/BgPCmVneGk8B9Prrrry5j8xxNx8+QbAZ6MJ85VAU4PPBlP7mkQuuO8GE/U
j1T0bPNiPGlcbPakyIvx5Fn5gut8b8aTjvj07DPejCcbneNuc30YT0L1179P
8GE8eUiuVdLyZTzp7tZ1vePLeNJhkdy4cT/jSV5xpsdQP8aTvInb9XL9GE88
aybKOPsznqTJLORMD2A8+X7ca8VAAONJw5jwvMoDjCci6X0WVw4ynqyRsNCL
C2Q84R07aBIWxHiyNsj9bNAhxpPRLTWGocGMJw94h/ROhDCepC3zcM4IZTwZ
/fb90MeHGU9aKKWer2GMJ4dPZZlqhDOe8KjV4lsiGE9QTKtmWiTjyfvlfvd7
ohhP+lPNq5YfZTw5YFu5LfsY48lxXrS/0nHGE58wq6lRJxhPpA3VbcacZDzp
txg560Qs48nxzXYZGvGMJxlZWWX3ExhPKkMTEredZjx5vnw4b3wi48m3Agnv
8rOMJ8dXlxyNSmI8GSCLfTamMJ44l8ctmH6e8eR8oWy7bDrjSYyTtt/PC4wn
cyXlR3zKYDzxERdEd2QynrzRH63xNZvxRMNl92PJq4wn9rbmEaq5jCcTbGrc
TK4znmzaYBvlfoMCT5YFujddvkmBJ1H73vj3gL+NqDrzkNNCEQWeVNWfuXb6
PgWenN99aJv4Awo8cS8qC3MppsATThklaCuhwBPBspdWOx9T4Emwz5PJP8op
8GTU2qjwoxUUeKI+8875Wc8p8GSPwUy/hhcUeCLdJama8IoCTyyj/OI2vaHA
E8mmqd957yjw5GzczcXS9RR4crhnzqkPjRR4UmxWMfC6hQJPdAv6fKvaKfBk
Rp2lVs1HCjzpJptkOroo8KRe5bbBsK8UeCJmsPiRAHxvRzM8p9+1/UGBJwUH
LHXP/qLAk0nXPqh9EGM8KatZfNVgKOOJdLta51lpxpOLH2wax4xkPGmomHU+
eAzjya11hOmocYwnVS2ilwkKjCdq/jN3zOMynux8eFO2fgLjyeSW1rcnJjGe
pMfGNFmoM56s1e+cO0WT8WRErXXHgA7jyeUtaXJNAsYTy8Dq+9UzEHhisze4
vnkTCZ50JVw83wk5GqkZRwyTsiHBk5TLzr91bUjwRNN0x5Etg5n2xF7xfFY6
vD8TJZesdvw9mGlPXF5fvGG3mQRP7CS/Jr4azLQn82W8JlrbkuDJ+dLoWd2D
mfZk5tdzDce3kODJO52R2mZ2JHhSFEAOH7WVBE8qp6YEvB3MtCcvUwqOiexJ
8ER2upzBlW0keJJqIx981YEETxRVFzsWOpLgydiUuS2N20nwpGeW3RCFnSR4
Ut+/Is/ciQRPFPJ9RiXvIsETXedtA+IuJHiyrys4wtWVBE/0vFbc/rSbBE+c
tTTCfPeS4Inhjl19im4keHJ8g6fkQ3cSPOErRl4J9CTBEzmF1t8rvUnw5KZl
xkddXxI8OeX32ZvjR4InpnI3LsgFkOCJ8Gqnp8pBEjwRZW1tmxtEgidlodV9
tsEkeLJZvf58QigJnpi0De1pCiPBk+srz9RTESR4Une2c+f5KBI8+fBkZPTE
YyR4MmJ929rzx0nwJEB+VQ51kgRPrsvWX2iKI8GTG+vHzEs4RYInGiUcK9tE
EjyxeT5OYW4SCZ7YWr62Vk4lwRNdd2LuuHQSPMk0JU+PzyDBk7uVHhHaWSR4
ol/xWHL5FRI8iY75LBaQS4InZj83+xTkkeDJOeO1exVukcz3J+r3G93ukuDJ
/jv/lLTcJ8GTo/k7lR2KSPBk1hbtN70lJHjSXb1eLKaMBE/al3kHLqwgwRP1
LXdtJapI8ORMiOTxpy9J8EQy4LX8pTckeNLd5VZz8j0Jnrgo3Kk71kiCJ45B
+pNOt5LgyVWuRuT1DhI8KelaP/V9FwmetERY1BLfSPCEmGB60fo7CZ7sqOg7
lPOLBE8WetXYc8WF4EmnmtSCcCkheKL6cfrIsSOF4MnWEaL8szJC8MSsIcvY
UF4InkhvST/1mSMET6bu7buRpSwET8RTI8J91ITgSefQoaPWaQjBk2EKJzUN
dYXgibvMjBfkNCF44o62SRvOFoInUv/uzrQQCsGTbxsMbnsbCMGTzhU7pmQu
FIInC5LQy87FQvBEbMvtovkrheAJ8TuuLm6NEDwpGWLKlbIUgiePPn+y8rMR
gicVnr5npOyF4InD2VNl8TuE4EnMooJqylUInsy9p33pk5sQPLHKqNXP9BGC
JzdeXtvndUAInig42S8yDxGCJxm6bqeEEULw5GJv84v/elJ0FPfEFOGeiGfj
nhgtwj35OB73ZHkS7knFS9yTPUNwT6RG4Z588cU9sfPDPbEJHIF5ssIP92Tb
ZNyT+cm4J816uCet1rgnxZNwTz4n4Z50zcA9mc/yZOsN3JMdO3BPrNtwT3Jc
cE/eq+Ce+G7CPRm1AvfEXhb3JH407sn0Fbgn6a64J+ukcU+0juGeSBzFPbnK
8mQDy5PCVtyTVytwT0JZnsxkefLDAvfEWQ73JJjlSTjLk/UPcU+WsjwhWJ7o
sDw5w/LEjuVJ71Pck2CWJ/d+4J7cMcI9qZ6Me7LkNu6JL8uTLtv/25OHLE86
bXFPglmelPnjnixmebKZ5YlZIO6JKcuTmyxPvofjnngp4Z58fYp7stsT9ySa
5cn4/8eT5/W4J3a2uCcn9+CeuKXgngSxPBHJ456MZXmymuVJTRTuySqWJ1nL
cU9+ncM9ybHFPXEbwD15LIZ70tOFezKO5cmRRNyT5SxPGkS4J4kXcU+Wszwh
duKefNXGPVl2MHSBjhUPPNmueTKFhByNdJwvVjgMZtqT0Qc9HuTC68mongz0
V7XmgSc3YlTFM6x54EmZoavZmk088ETKavMaZRseeCKXckl96GYeeFJ5/W3u
cFseeBJy1lSav4UHnuxoHkm42vHAkxdr5BqebeWBJ29vyzmu3sYDTwp0wlK7
HXjgyYX2uyezt/PAE1uTu/rhO3ngyeYvGyNDdvHAk37vaeHnXHjgyWyj2Ok1
u3ngSbDlVe/p+3jgyYSxNnZp7jzwxMUWtep78cATC5Vs8S4fHnhS3lCWec+P
B56sanVuuXyAB56Y/aNxXhTEA0/KY+a3fgzhgSeq0leT5x3hgScj6vRfJEXy
wJO+KiM33WM88KRKud638gQPPJnYXNd0Mo4Hnlitupnqc5oHnnj+Ppq3/xwP
PKloniN3JpUHnjy4pppZe4EHnhCdu/zJLB54oivX4J97lQeeRLU0pizP44En
9Qd8miRv88CT5qRVs2ru8cCTDxfTD5cX8cATNNn+9btHPPDE/744V6aCB55E
VR8jN77ggSdK4YXTi2t4zOcTVPV1RR0PPJn9MXZPTzMPPLmQ5HE2v4MHnlzt
3+aS0M0DT7QufayI7+OBJ/bTlK/nDfDAk9TFJ8Z+GcoHTy6NCSxfPJIPnpzc
Gv/+riwfPLk8X3H2Pxw+eBJtUnR7yEQ+eLKP7NhaPoUPnuR8sJ6Qp8sHT5QT
3crvzOCDJ5VmYx3rST54EjY7/KWaIR880Q94NszfjA+ehBeYNn1fyQdPRCPf
rItaxwdPNh77uczIhg+e5BFxmeMc+OCJ1y2e3YAzHzz5becnLbafD56cSRCl
vT3KB0/KPasiIs7xwZO8iKb4vmw+eOKa9eRE6R0+eDJL+W6C2WM+48mDTI3Y
V3zwJEfCnyhv5oMna6YMefLtCx88Ua3XcOQOEYAnhUnWG9EYAXgSphNmt1NJ
AJ7YNJSOSdYUgCdm/raybbME4MnmjUeC5hsJwJOX5qVjklYKwBMdB88eRWsB
83zXklSUukPA/L/rVWLuQk8BeGJV3NLz/ZAAPDGc7eNbEC1gnu9SW5ly7pwA
PNly1fxyTLYAPLHZ4P3k3B0BeNIc+lGp8LEAPEnflpb087UAPBnIP2Nv1iYA
T5J9/ddf6hWAJxGC41flJPTAEyr3a57lCD3wpDfW4EKmrB540pUX7DqKqwee
zGZ5Uvg5BvNE6eAF3JMv7pgnbZNwTy5G4J5YjMU90Z+Be6JwHPdEfx3uyZsI
3BMuyxPuEtyTKzdxT5q0cU+8ynFPcufgnjx4g3sy1Ar3pJvEPfm5Hvfk57dN
mCfFNrgnSzm4J5Z1uCcS73FPbs3FPTGPwj3x/3UF8+TDW9yT6w9wTywJ3BPX
V7gnC5bjniz4hXsibMI9EWTjnug34J6cHYF7srgZ9yTZH/ek9hTuyfhk3BNt
ZdwTx3zck+IXuCfhYbgnDfNxT+pbcE9ECbgnnj24J3VpuCcNqrgn801xTxpG
4J442eCe2MzAPflqiHvSMhP3RLId92RrHO7JHhPck/5ZuCfBHrgnOndwT+rF
cU+WReGebByDe1KVh3uysLbu/KjdjCcZ+QGkmxPjibBNkLJoF+PJ3asvnke7
MJ748K89vbKH8UTausLU0p3xxHDtzsjt3ownu7nfIx/5MZ4EbZe74hLIeHI8
0yx5ZSgfPKkbWZlnF8EHT9qNwn+eP8YHTxraDVLHx/LBE+sFtx9eOs0HT4T/
SMvsSOaDJyohY+OWXuCDJwt7NRpXZvPBk60XtC+5XeODJ9z9PR9u3eKDJ5EF
gQVqBXzwZEZNnNf5Ej54gk7b71v8lA+emJXv1htZzQdPdkll6bfV8sGTC5OR
fmMjHzxp+dL87ucHPnjS/aCzUfCFD55MM9sh5/+DD56YWBbrdwz6S3uyPTuG
3DtcAJ4kPj/+kZAVgCcBP4v0qzkC8ERNd5H/T1WC+XySExiupEaAJw/95+R4
D2baE90eo89KkwnwZKnyftQ/mGlPCjakxUyYQoAnl9fv7fKZSoAnUzkHKWVN
Ajwx37B17y8tAjwpd0g4oKxLgCd89zgLXz4Bnlx+U/BuwjQCPFFf7izZP4MA
T977tmQrziHAk5dHdjz0IAnwJCFGT288RYAn0edtS7sXEODJMI+p7mMWEeCJ
68Y4ecfFBHiyb+zL/eIrCPDkQlpP5OvVBHjytnrkpM/rCPBkmR5fcpE1AZ5M
+uQm92oLAZ7oGQ5VvuBIgCdSG35+znMmwJPV8mE2km4E8/mk/+PMSB8CPCk5
4DRv7UECPHmC7GZvOEyAJ8d1FnTH/UuAJ2ctDk/jxBLgSenO99cqEgnw5H7h
EKPiNAI8WVhTFt2XTYAna0ebOW69QYAnt8cleo++T4An5k66QV2lBHgid8t9
/pjnBHiSFmqwwb6WAE8mOu6P7GsmwJPu5faRhV0EeJL11HlE6Q+C+f7EZX3W
MEkOeKLVwtPxl+GAJ0bKZlp6ihzwpPu+1WrOFA54sirXa9VcPQ54cjZ1bGmk
kAOekO29m1VMOOBJV4DbrYZ/OODJKf9F3u+sOeDJ9XfxlOwODnjCPaqT4uHO
AU98iqYtVQjkgCeCAY8nzVEc8OT5E5uSjlMc8MRkZdOzqRc54MmOWakHo/M4
4Mm2DZ2us4o44InhwpvThz/ngCdqeg/Wy9RzwJPV8Yc8Tbo44Mm1EOPJlwc4
4MmFyvEtS0ZzwZNeja7VxAQueNL+OLV3nA4XPMn51G9NkVzwJCY7XSHWjAue
uJ/dnKq2ngueyPS9i3vtwAVPBsw/eYs8uOBJo/yeisoQLnhy7rSLmnwsFzzZ
tYTzzT+dC54or3lSzs3ngifpEvNmvi3lgifBMgbpZTVc8OTmw0mXWzq4zPPC
713LdQa44Im1uuBgrIwieJJgcH+lnqoieBKgOzrv03RF8GTbhT3zqo0VwZNp
Ok3mzWsVwROlA82hExwVwZNDEgkWnt6K4Mnhhmf6/eGK4En/gpF5yYmK4Im8
xAGT3VcVwRM1a9LRrkiReV7YRzre65UieBIQcWJDTocieKIyxGOKrJgSeHJn
tJZnlJwSeOKwT7lymoYSeCKR8zD7K6kEnnxzPB/5crkSeHIv0PTjG1sl8GTt
zrUmQ9yVwBPt2YlKC8OUwBORDu7J9Pz9yiP/44mErsm3ef/xpG/DD+kQNcaT
/g3T135TYzzZ+ebe+4DJjCfSr26n8dQZT0Sn92b1qTOelM7f3VM/hfFkptDP
r2Mq44lebuJSBU3GEyUtjo2VFuPJc2rLrUJtxpP8e0K7JbqMJ7LCmA2feYwn
EV9Sz10TMJ6UJVWj+GmMJx1ExawzMxhPEkm3kPuzGE8+BTcKJecynqi83WO+
jWQ80da/9qJVn/HktpN7cShiPCk4fUtnsSHjSZ5i4TDthYwne58NtdMyZTxp
0uAbmS5hPMky18g4tJzxZLeKTErjKsaTXAvhTNs1jCfLPefa/F7HeDJWoURw
ayPjyeeopvSTNownOstvVkXbMZ5c25mRn+3AeJKlssKmYyfjSYWxU7mJK+PJ
0hMSowv2MZ6YL1qgbu3FePKvbfAErh/jSeclh4EvBxlPXKRSn3WGMJ5whs48
NzyC8eT2oxluxscI8ETvxTeLMycJ8KRmRd9KxdMEeDJwqnl7bhIBnoz1Opnl
kk6AJ5b6slpLswjwZKOsX51JLgGeJAnJhi03CfBEc2bh3MR7BHgS0lXU0V9M
gCfLPsiN8ConwJMeu6R4oooAT3q2H8uoqiHAk6WyGqY59QR4csT2gefVNgI8
MY7tW1oJvtYjcpxTmVwfAZ7k7umS2vebAE8ehblI9koxnuQ7/HgeO4bxZNSe
GwFW4xlP1o7oIQxVOOAJKaaQbDKVwzwv/PP49F18Dngi/Wzc09zZHPDkJo8K
VUEc8CTj3/rtaYMe0578q1IXsHolBzxRidarmbieA57EddUcHG3LYb4/cRwS
OmHQZ9qT/GkVvUv3csCTlBVHak/7csATce2DJuOCOeBJcaK80fkoDngiYZtR
axXHYZ4Xlr6vPjuZA57UhlZP0cvkgCfvPrp3LsnjgCcTNWYfCb3PAU9kwy6O
anvMAU8Mvd18t1dzwJMNY+d1jK7ngCf5d2LsKzs44Mnoyjk/8ns54EnSmDs5
heJc8ER/XllSF/jegXqzhlZRXC54Ul83sCZLnQuelBatmGmoxwVPLH0O+vYK
ueCJSfQE9MSEC57MzTl6qGQ1Fzxx/bpyc/MmLnhSPC/nzZSdXPDE58FwqRAP
LnhS5hPePiqIC57YzHGIyfmXK/ofRQUS9A==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 1.}, {-41.947328595885466`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.3918679919572*^9, 3.391934633165*^9, 3.40789559995*^9, 
  3.407901658715*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe1", "]"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
  3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
  3.40789859744*^9, 3.407898600709*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.6186732061136336`"}], ",", 
   RowBox[{"-", "1.017378568657361`"}], ",", 
   RowBox[{"-", "0.49163149009513873`"}], ",", 
   RowBox[{"-", "1.7413385825396541`"}], ",", 
   RowBox[{"-", "1.1732265592324305`"}], ",", 
   RowBox[{"-", "1.173226755202745`"}], ",", 
   RowBox[{"-", "0.7622494192791996`"}], ",", 
   RowBox[{"-", "1.651414434208224`"}], ",", 
   RowBox[{"-", "1.2713154415034646`"}], ",", 
   RowBox[{"-", "1.271315781044325`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407898398363*^9, 3.4078984964709997`*^9, 
  3.407898565705*^9, 3.4079016684119997`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=10", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "1"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.01"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe10", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "10"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", 
                RowBox[{"-", "1"}]}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.39193465085*^9, 3.391934650929*^9}, {3.4079017018050003`*^9, 
   3.407901704933*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe10"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.391934664351*^9, {3.407901732091*^9, 3.4079017359969997`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9kgtQlFUYhncwHV1wKgUREXe8xmUcRDMYFF9I5WJeBk3MXCczuZiRkKW4
OSoslAWyK16mEFFZbMYwzEvIgnnUNQRiEVgUVJLdc35hcRcUC0YLMXY7p2/m
n3/Of/m+932fb/LGrSvjXWQyWfzQ5biL6p8SIjuSTsmX7qVRFlUm0opSR+v+
Px/CB1OGza0dOpdPyrLFlhdiWdzR7a4Z4n0xXNrONyYMnfO/d9RpPLFmL27L
EN+XYtifQY1b1JTYYx1PzoEV7NzmkSn+v4gj4bKAu0NneYsuJUx+CZWJAf1l
WaKfHoaNvqbSryjxU2qu9/lehn6snVz9WvS/go78oAr7PkqKh/5u0V3FlSkq
MvtbMe8afILdjHnZlMxxlgHphqftbvvF/BuIqxj460QuJYY+36EJvyGwWj9y
hVbouQlF6G5PzzxKVjoHViPce73P84NCXw3W7PUb13eYEovK0bAWA8FfvJB/
J/TWwX+Lpj40n5JUh7wUI0ZVZmRmFgj99TCFe0ywFlLyH40G+KVWfRN/Uvhp
gJfFaBzQURLtHNCIY0+9zD/9IPw1Ijl+eUXaaUoc05SaJoQ1X1+9/ozwa0LU
gvSSdWcpcdppMUGbuOjitvPCfzPu79iedOoXShQOOZNuQ68IvPqkXORxG1tj
Zl9YfZmSxARH3UHntJ6QZiLyaUFRyc7oTwyUOLq5l7Zgtuxgq89NkVcrrFnH
2q21lPQ72vW1QrvmxCpjvcjvLhSfLvL/vYmSBc6G99DlbnqP3hF53sON7jnN
Y+5T4pSXdR/6JJtW2S7ybUNk83g1YZQY6xzVhljD54XzrCLvP7Bn5Yo7DXZK
PJwCH+BwXK7Pnl6R/wNM1ZYkRPZT4mynbIdq+gXdjH8EDzOWGyOqFDLG/ZhR
6KUmQcMZ52PGrN7AvUo54/7M6C/OeXb8VcZ5WVBzKnH8gDvjfi0IO+Z5K2UC
4/wsMI9QuQ4qGPdPId/fW6mbzjhPCp/MTfUfBjCeB4Wbdt6skCDG+TIkvLKh
fkYw4/kw5B0IPTwzjHHeDOUd51KWLmQ8Lwlda/2WqmMY5y/hWcGeMU0rGM9P
QrB6dGlIHOP78BCpVcUjLykZz/MhmkZpXJd9xPh+PMSSjJzjf29mPN8OUE/T
GZLC+L50YMuG0d4FOxjPuwNxlWsbNbsZ359OpC2JKcvPYjz/TrgmtJ+9nMP4
PnVi1wGtru8g4zysqBiM2L74qOBhxS1TtNuZIsHDisCizTF+PwoeVnhLLa/9
ek7w6ELi/rmLE/WCRxemns+rfuOa4NGFhZOTdw1WCx6PsCr65whbAyNaJ49H
iOm/+Ky7VfB4BNX8iPQRFsHDhuTsfRVvdgkeNqRkB6jTegUPGz6LDNE3Phc8
7Bh5xD803EXiPOxIemmjBrnEedihiGrWKMdKnEc3fO+dniifKHEe3Rj0KtpU
N03iPLoxwWPj27qZEufRA/vrLzW5b0mcRw+e+7+ckQuJ8+hB69z3zSejJc7j
MQ6pVYdqYiXO4zHKSsK8h6+TOI/HmE/63nl3k8R5PIHvuI9flCVL5F8vSGBE

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.63},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, {3.391934657638*^9, 
   3.391934664915*^9}, 3.407895620894*^9, 3.407901736623*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe10", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, 3.407901744284*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJx92Hk8VO37B3ClozPatC8qW4VKUrZ66KgQqUckWhTKUkkRbZS9kqyRIpUt
JeVJylY5pERFaEGIZsZOacEMxVfP73Vf5zn3H7/zj9flzNz3fV2f85r3vEZm
9yFTu5EiIiLfRUVE/vxF17ybj6ItDCTyPaakrfvs7k+ZT9Or3w51JHWr+mqO
7XCdPfd0h0n2NSrfcLHiEbifRK0sc1gcNFzHRP+5Uqgxb/sKU+D1aVRHSUZ3
6XDdafLnP+nUDePEDAG8/wF1wnxw3EJDiXzxqkRnbfEsapKe0ojdhmi9HEpF
qyQkbrhWtAx92qPwmJI+EpvdZIjWz6P6dyR4q6yXyE8afndVYj419Hp0m996
tF8B1eGy6GfdcL3836uQ2rHrWpKWEdr/GUW1y/1OGK4LexSGd3hO9VvcF5HY
gM7zggqUcr3vN1yb/rthMbXLqHDq4AZ0vhIqvmb5Eq+NEvmf3f8s+JJaPytw
SOxvdN7XVMT4/OCLw7XLn+M5l1L/FI2qX2iMzl9GCZ48/lY0XP9fGuWUxBrf
8n2bUD/lVJPPfM/JJhL5Bv9uUEGdcrw7VGiC+qugVBwttnuYSuT/2c0ytJLa
J7gUsWIz6vct1flsVvrgcP1vO1VvqZKep9kvzVD/76g8k9R7V7dI5Ev9Oc7c
91SKw4Lrx8zRPN5TprfzArdaSOQ72P+5PlCXfNXddbai+VRRC8wD3JS3SeT/
WW1KWhU10a/Ze/52NK9qSvD3o2TZHRL5vX+W66mmlpfc6lpgieZXQ+klBuxc
tlMif9W/C36kvvQ4DuruQvP8SAUOxVTvspLI//d4p2upSeWRP72s0XzrKEH7
+B23bCTyS1//ueqoO9U/p1TvRvOup06lOCyaYCuRP/XfA36iRro8ubnRDs3/
E1V41zsiwl4i/9/lLBso6eRDgkYHlEcjNfGRR6PaPtRPIzU5tXjLhf0on0bq
1uvU3b2OqL9GSmFV6sTdTiivz1TR6FNO7w+ifj9TgpViPpucUX6fqY2i2y3e
uqD+udSujOyBna4oTy5l8CrkRLcbmgeX2tfvWhd4FOXLo6RnLVyqdBzNh0dp
L4z1rjqB8uZRpwzra855oHnxqco78ga6p1D+fGoourZKzAvNj09xbD0vVnij
56GJWrg/JzjJF82ziVo6Z1uplz96PpqoU+IbbPacQfNtptq/xpsbB6DnpZl6
8iEwd20gmncztU3LPEYnCD0/LVTimsOi+iFo/i3U5u79omZh6HlqoeQ8227u
v4DyaKXIBxmD5yJRHq2U6pbUqfejUB6t1Ki40n7uZZRHK+VTv+zx7CsojzYq
VWz8XqurKI82yvjknbGp11EebZTBuyPZQ/Eoj3bqx+OOEzuTJPLD/s2jnbLq
TbF6lozyaKfW7LY/rpqC8uigzi/6Vnk3FeXRQXEJNc+laSiPDqrFX+Pc43so
j05KKXimqGkGyqOTGvo4faD7Icqjk3JOPu8dnY3y6KLWbe9IMHqE8uiiVPe/
chmdh/Loopx1Gn69zkd5fKFiV/Vvji1EeXyhDjRKnD1ShPL4Qo3/siJ5awnK
4ytVV/5Pgd5rlMdXqq23ok3rDcrjK3V58wLlVZUoj26qRLA9wfA9qkVEFNYJ
gv/ryYsPuixPDDFPQjBPKkrZnqhWsj2pxzyp2Mj2RGct25NV8mxPapazPalx
Y3uSrs/2ZNsNtieNmCejME/+wjxpwDxxwDzZhnniiXkyDfPEHvPk93O2J5WY
J8ZL2J4UYp44Yp7IY57swTyJwjy5h3mShnlyEvNED/PkHObJPMwTccyTHswT
ZcwTLcyTLMwTW8yTcZgnLZgnnpgnbpgnv5zZnkRjnkzBPPmSy/ak9zbbk3jM
kwFttif3ME8aMU8mY55sxDxRxzzZgnkijnmyBPPEDfPkGebJV8yT1j1sT6Zh
nszHPHHFPHmPeZKJeWKOeeKPeWKEeSKNeSKKeaKMedJzne2JN+ZJPOaJPuaJ
LubJN8wTI8wTTcwTZ8yTOMyTh5gnfUFsTxowT8QwT7K3sT1RwjwxxTzxxzzZ
iXky1MX2pBLzJBbzJBLzJBvzRFlSMtvPmgRPhlpsB85DHUkd373medJwjTwx
SsmYWgb3k6hOkZzO0TYkeLK2wnS9qQ0JnlzP8Vlyd7hGnrj56UfP2E2CJ3YO
CYGRwzXyJJofNVJmDwmetG2aPyJvuEaeHIs3PuNoS4InqcnTLyjakeDJwlzP
eQI7Ejx5FHxau8qeBE+ifRfVFzmQ4EnCNyfRF3tJ8CREYt29qn0keOLz4w5P
sJ8ET5a8DL268AAJnjhIVdcfcCLBk81Rtkn0QRI8KdEf/U3WmQRPRsf4Fka5
kOCJVPJpSUlXEjz5LXFL8I8bCZ4c49tu33KUBE82FU7VGXOcBE/ui3beqjhB
gidLOe0RtzxI8CTTvnYo9BQJnkyU3dBx1osET8aM8TIL8yHBk+CJe1ak+JHg
yZvAs5cqT5PgSeWGCQfGBpDgyc6khAzzQBI8mUJY708PIsETiYOvzs8OJcGT
VIfHky6Hk+CJX/R6oVwkCZ7M/JitmR9Fgieyt3eVHIgmwZN+0bAExVgSPAn3
8MvtvUaCJ27H1MXexZPgCXne+ERBEgme1OQNEvRNEjyRSa6NfX2bBE/aFxYs
br9LgieaBckJ09NJ8OSh4Gib2QMSPGno57bFZ5HgiUjxssDBXBI8cXoxMW1/
Hgme3Fthod5cQIIn8zgvRVyek+DJJ72GFvESEjx5FnH4acZrEjzJOHFsj2M5
CZ6cPpcQrfKOBE/cC0llsWoSPHEPyWhtrSXBE4OR8mdqGkjwpD+vKr+KR4In
bkNBRrwWEjxJPXS7YqCDBE/+2WfZK91NgiehZ65vNv1Jgic9J2adCBWQ4Mmq
nXntVb9I8CS3bI7UohEc8IT6ZncqgOCAJwcEddu/cjjgiXAM3bdrPAc8Mbq1
xuPDJA54Qlce+WI2nQOeyE72UauR5IAnRvcSxXZLc8ATs5Of6rvmccATk0+J
He6KHPDE0fXVgNgSDngyJC+yKXQZBzypSObaSmhwwJNln26Hnf6LA578sAky
b6U44InBOJ3pyroc8GRDiMqi9QYc8MR27vrJszdwwJPHvm/MdxhzwBPR71k6
IcM18mS/mrRLrBkHPBE9YPVmyXYOeDKGPKtfYcUBT0ZaNJX52XHAkzaZTGt9
Rw54sl5z/s8ZLhzwZJe2ic/AUQ54Ijbpb5EvJzngSYq8/L5uXw54ouL4OWPk
OQ540jCd7UnV8fKj5/7jSdX2xIyY/3hyNzfVOes/nqjz7dIbrBlPds1Md5/8
H08UzpZWmv7HE/uibQVXbRhPuKeMjX/aMJ5IVQ+dMd/NeKIeN8Ht2W7Gk83B
LnKr9jCeUMdtEgv3MJ7oue0S3WLLeNIhM8/suy3jSfXzxJtX7BhPnhX+kjCx
ZzxxyHdLmuTAeHLn68FjjQ6MJ7Iue+Jy9zKepDe/V4/fx3iy/I3R5sj9jCfe
wWsmRDoynljMm3867gDjidOj1eU5TownSe15YxsPMp5wLcMtJjsznmhaOJdt
dmE8KSh5FRp/mPHEwbkg95cr48nbpEmH7I4wnmz0mFVae5TxhLR+1mN1nPGk
n/IT/36C8UR4yFDpggfjyfxjPt46pxhPJpWMlv/tyXhy4NZ83WJvxpPxpsED
8b6MJ6EXLVwC/RlPpEnRlz5nGE9u97otDAhgPBlj8CvraiDjSbir+eWnQYwn
Y59nfusNYTx5OKG8fWU444mSxOfbIRGMJyuTCrd9v8h4MltySMr+MuPJUEX9
gvYYxhMn6zOXPa8ynoRdnREnF8d44veybF9NAuOJ8Ro5ubgbjCc/Jwz0H7vF
eHKo/b2MTSrjSYzcqJc70hhPnizlye9NZzzRiJE5fOYB48k9vTHczCzGk9S1
DRnCXMaTyKCl8sZ5jCcW+zd7ZRUwnuQ+qBFd/pzxpCBWesTTYsaTOaY/im1f
M57c/aCfIVnOeNK3bYpUy1vGk0WS21xfVDGeHH6qK/2klvGEFsTHFTcwnnx9
FeDRziPBE4+0Q/pyrSR4Yrk366ZrJwmeBIjUbKvrJsETE88Dyrt6SPDk7iiL
Gf1CEjyRWRuhkD5IgidnX+jE+4synoinjvp9hGQ8mfrLdsTZcYwnSi6NVTmT
GE+UD5xfPnEG44mWl+B82BzGEwW/eE8tOcYTp4vBHpKKjCfhrhVTNJQZTxLC
HfnX1BhPFsf77nDWYjz5ZB/K/7mW8WS71sQFyX8znnxok2J5EmnP9uTUrzMs
Txabsz1JwDzRwDxZiXmSO5HtiTPB9mTRfLYnrWpJp07PJMATy7giThDUkVQI
Jz3t+nCNPEkhtR3z4X4StUT1h/aX4Rp5IjzwYp7iLAI8OcCfOcdluEaexAfn
yBXNIsCTytQmVQVJAjwRid+04ZIkAZ5M6ZC1mzybYH7v8hs8ETubAE/e3xt5
etkcAjzJVSv3ej+HAE/mqofsOT2XAE/GWX1RWCNFgCfPpVSLx0gT4IlZj+YK
rjQBnrzxdHV9LkOAJzaqg04PZQnwxDb8mtR9OQI8Kc187floHgGebDj8yKdi
PgGerLxjPffnAgI8UdTwXC+nQIAnwUO3B3YpEuDJjQuW8jcXEuBJ4K/upwOL
CPBEoyO70FKJAE8mSo+UermEAE9iZ8q+XLuUAE9GdXnnlqgQ4ImbYVLTjuUE
eNKWvHJ1vyoBnqjuW1CYpE6AJ2oy52x2aBLgSURW2aS5Kwnw5INvdmnnXwR4
Uq+699wLbQI8kbmwXzuNIsCTXH7B57jVBHgiM6n74PW1BHiyYovIpxQ9Ajy5
dSRMIX8dAZ60edUYcA0J8MSoK2uFxAYCPLnz636v4d8EeHL7nujJ0E0EeBKR
FlPUaEqAJyO857/T3kKAJz/bJyUmWxDgSZp/1DLJ7QR4wlFK9b1iSYAnNplT
IuWtCPDkTYD1XtqGAE+yjJpG7LElwBOz4II9kxwI8OTIwZrw0n0EeLJj/duw
yAMEePJj72R7h0MEeFKbkTld/zABnlzzCLqz9AgBnpiaTVgsf5wAT45N2nlN
0YMAT8S+KI3V9CTAk1mfX3qa+hDgiZqOqMgJfwI8GcySiUk9S4An0ecbLdoD
CfAk2W6nrloIAZ60XxjrGBROgCeH36dWfY0kwBPnT6pRVpcJ8MTh+Jv7tVcI
8KTdo3CF7XUCPNkQuV9DmECAJ909MtkxyQR4soWjVWxwmwBPYqW/u4qmEeCJ
jaH5i5fpBHjyj65e2bWHBHiilrk10iuHAE+WxNTMc3pCgCfVYzICHQoI8OS1
vV35wecEeNJYIRzyLSHAk8gVvbJJpQR4YlRosqayggBPxPP22Y/7QIAnW1X7
orZ8JMCTG4Wjam9/IsCTRzuaNMfxCPDk0M5FmSdbCPDki1mchbCDAE+q12nL
+HUT4Elfkty0WT0EeHKEjtLMExLgye7annOHBgnw5NWbTPElomLgCa1skysc
LQaeqA+du1Q5Vgw8+XFmFsuTExfZnphinizCPLmxlO3JkzVsTwY+sj15FcT2
JP8225Ow62xPutvZnuj4sj0JTmF7ckCZ7YlXXTDLE00ztifumCc7frI9OYF5
cnM525OcMLYn6zFPclzYnuSksj2ZgXlyFPMkCvPEGPMkpp3tyR0ptifhM9ie
nGtje7IA86Qc80QE82Qm5slWzJNXmCevMU+KwtmehPLYngRNZHuSZcb2RN2N
7clszBN/HtuTpD62J2MxT8i7bE+enmJ7EoB54ox58mYx2xN5zJNnmCfGmCcm
mCdzME9UME+eYZ6kY55sxTyZgXkii3nS1MX25GYD25Mr2mxPCjFPLmCeXME8
qcc8McA8scU8scI8qcQ80cQ8qcU8UcA8uYJ5Yo55QmGe9D9kezId8+Q25kkx
5skbzJONmCfrMU8GHrE9qV/E9mQ05knENrYnHy3ZnmRgnhRhnnRinjhhnvz6
yPbkCOZJGOYJd5DtydWRB1Ufn+qjkSepNrFry6GOpDTyopzHevbRyJM+tzs5
zp7ofhKlNpEz+/dwjTzpSHscke6FXp9GZclkSYZ499HIkxKNV3cv+KD3P6Dq
ZNLX0L59NPIk5RZZOdkfrZdDaVXuMA073UcjT+RFpHNUz6L186jDD/L6Rc71
0cgTa68I8Z5AtF8BJXrix0eJ4D4aeSKur7LTLBTt/4ySPJTgQ4f30ciTbQ1J
GqaR6DwvKA+VG05jL/XRyBNN5fkTv0Sj85VQemMKx/fF9tHIE7eJq03l49B5
Xw9/vgUXeSb20eDJxtItv5PR+cuo+ek2bQm3+2jkSZZY775Daaifcqo1KIDe
fb+PRp5sm3a04mQm6q+C2jJ4+syT3D4aeXL0U++zeTTq9y31qvn84fuFfTTy
JL8vxs2+GPX/jlrmKXlPp7SPRp78FsnkrK5E83hPGXq/s3Oo6qORJ7pRGbcy
6tB8qqgZVm6Z87l9NPLkhYKy65MWNK9qarVArNC9q49Gnnwp1w7c+QPNr4a6
+8zwrp2wj0aeBL9rl4gYQvP8SHleXB3TRAho5ElRWPOSnWMFNPJkvPPIh8JJ
Ahp5UvnefvKjmQIaeXKl9aZKvLSARp5ER6gLUuUFNPLEfKPHptolAhp5MjLg
2zxldQGNPDFJXWtzU1tAI0/G2Th8X6snoJEniv65RaM2CmjkSai2dFmbmYBG
nnRumNv/3VJAI0/OTx7QlrYT0MgT9TUfQ1ycBDTypFCmjtd8REAjT57nrFD3
9hTQyBOVlt0+2mcFNPKkUU+ycG4Ymg+PmsuPGpCLFtDIkx06UUobE9C8+NS0
Ap9dMakCGnlSpeYfNeYhmh+f2uue1BiXJ6CRJzE99eu3F6N5NlGz6jSaNSoF
NPIkYlpt0Yo6NN9m6vHFBaOsmwU08mRw1NPs291o3s3Uoei0kbMGBDTypEXM
fPjjXkgjT9q0LjXYSwhp5InayApaV1JII09ezm5/s26BkEaeDE20oJxVhDTy
JEh3zuo8LSGNPMm0fjtmmYGQRp5oDl6rebVZSCNPRu5Tbj1vJaSRJ/zDD48f
dhTSyJNiw+o3XseENPLkgMlNtQd+Qhp5MrMtoGdCmJBGntxZuGBXRKyQRp54
pGwuWJUipJEniUv6XCdlCmnkSd2F9tLxhUIaeaKRX6uoWi6kkSdWfYpNvvVC
GnlCeOZbDbQLaeSJb9WXgasCIY08uXJ31VxHsX4aeXL1/jqlPVP6aeTJpmif
8DOy/TTy5KHZlIfvl/bTyJPH82+KmlD9NPIkkKfULtjYTyNPqhszP5Ra9tPI
k+t/q2uWO6JaROTCCLYn1uvZnlRnsT3hpN9meaIfQLI8WYV5YinN9sRmOdsT
m5lsTwq2sT2Ze2o7y5PKX1IsT6Zinnh4sj1578T2pGgV25P03Zgn9WxPtmKe
LMQ8URRne6Ilwfak+zPbk6QNbE9c7rE9OYd5ch3zJHEq25Pi32xPFDBPqvhs
Ty5gnmicYntihXlCe/3/nrzayfZEFPOkr4/tyVLMk29P2Z6cxDyZhnniGcr2
pPsg2xMlzJOdmCcmmCeDRmxPZp1le1Jxg+2JthXbk1W+bE8Ul7E9OYJ5UpHS
z/KkSIftiT/mSXY225ODzWxP6jFPRmOerMQ8yafZnrzHPJmHeRKOefKhlu2J
D+aJN+ZJNubJ5stsT1QxT25inliOYHtyGfOEK8H2JHgt2xMRzJO5mCdZe9me
5LqwPTE2YHtybBPbE/sWtich8mxP1txge1K4mO1JBuaJLs325Hgv25Nbp9ie
HPnA9mQU5on3P2xPuJfYnhzfzPZE70MyyxPOJ7Ynvp/Ynsxdz/YkUk5TJMqH
C558TbKWb4M6khrvah3D9eWCJ0WCEhNffy54srFmxeriM1zwZN9yM4sH57jg
yUfj/FP6wVzwRCFaLtoznAue2E6RPGcZxQVPjjxZrtB4hQue/JrANeIkcMGT
HzHHnlXd4oIna8Jm7DS6xwVPVs/9p3ZPNhc8MTH6JCJTwAVPvh/8cdb3JRc8
+eD3YUHAOy540pwmDFZp4IInSlX6ez3bueBJu9G4HQd7uYwnW7qIEaI88ERW
tXCkugQPPIl8G9Y0di4PPNG9b691ejEPPJm91Sj02l888MRqpaz1ViMeeFK8
NXzh/R088GTT56Y9qQd44InDbIH7Wk8eePL30vHVJ8J44InC8ry6jYk88CRE
/Q0vL5MHngzdm7n69UseeFI33WH1kQYeeCIfu2lhzk8eeGJ4ac7KS+J88KRs
QvzN8TJ88OTwvWkJczX54ElT3NCmImM+eHL10uDbUXv54MnJ9ow1Nd588KTp
9+U7a2L44EmvbN0MnQd88OTySK0z5WV88ERcldf+vY0PnhhI66omE03gySWV
Hv02mSbwpMMueDB3VRN40p3qozTLsgk80X0+8irh3gSepGjWjT15uQk8OXPB
bPnJrCbwpO7G+CejqprAk4bEjg1T+prAE/ND3zxSpjeDJ5+XKNc81WwGT8yr
ktt2bW8GT0zrNBROnmwGT158DyJmXm8GT7bqjG1d/rQZPHlh/GrRq6Zm8GRe
+WnZek4LeDIQd3ny3iUt4MnkgyJa+ze3gCdSdZZln4+3gCdrTQXfX19rAU9G
B7x7ofi8BTwJ935s3dvRAp7cnGD5YunkVvDER27nwIeVreDJcv3z35t3t4In
G4t+X951vhU82bTHoOKvB63gyRfjDLeT9a3gyYut7pvnjm4DTxTzJ6tJqbSB
J4sFntUnd7SBJ49WXPmpeqYNPFnie0ZTL70NPPHpH7Uhta4NPDEL7X5jS7aD
J6uC0ncdUm0HTy5tp4OKrdvBE59VC9ucgtvBky5DpUHL3HbwRPxnsUlESzt4
0v/Ezn781A7wZNpHz0ev1nSAJ6uEZmXFzh3giVjGzVmi1zvAE1mTo5LHSzvA
E70pL4zm/+oAT6pWusmTizrBkwKDwUVzt3eCJ9Pm7KmxPdcJnigtE9yvye4E
T9ItDHXcWzvBE6cHfeN0Z3SBJ1ZdV9JUDbrAE/NNNx8ZHu8CTzZ+1f3gfasL
POmVZXtyPMFlXOJ/PLGSFVV76cN4stH8ytExvownI+vuV9j7Mp50t57Xq/Nl
PBH9oVLh6Md4wos94TrVn/EkSkdkUY0/48kjh0W9macZTwp3K7xNO8N4kjO5
k84/y3jSHKOS2xnAeJIn604vC2Q8maMxtvTCecYTn8LvDWODGU/Mc3/9jAth
PFEuziGNwxhPpFZ6Tp9+gfFER3LnHGEE44mFt+K0notc8OSXxpHf4pe54MlC
x9CylTFc8ITzyNffP5YLnrzVmTqr9RoXPFF0KTpnF88FT2Z+Li39lcgFT65+
n9l4N5kLnjjZ/Z17PIULnmi/e7pl5x0ueLJulU/qjn+44EmYg+4D1/tc8KT2
2NG9Nx5ywZMcKeX87mwueHLIcFnGlsdc8KRl3hfNdzQXPElIPWFwoJALniwT
iaie84ILnrSevtrQOuw38iTMIm5zaRkXPJE6qLvwVSUXPGmb8nYr9wMXPHnW
tfzdpFoueJKztyPMsoELnui/m+FH87jgiUmh27W/WrngiZep8YfyTi54ctE8
ZI7XNy54IheWaq8//P0AeeI+PyNxwQAXPPm7dHWRlAgPPLk2049WIXjgydJv
yt6W4jzwpDcpSHB9Ag88KbnhMOPXFB54on11+hvnWTzwpFHMfcygFA88EQ/+
9ihxPg88meNvW2aziAeejA37a6mmCg88sR9lXbZAgweeXAhfeVFJmweeZDen
O29YywNP2rYpbvAz5IEnglivSZXGPPBEw29cmqY5DzxxKUoisyx54EklJ3TM
xj088GS9b9D1/n088IQ7/e0d2pkHnjhaj5OMPcYDT8wfbasIHf7+gzw5vt4w
M+Y0DzwZY9/wz+MgHnhyMjwssSeCB57kDq4+qneFB568eWsw9k4CDzxRTthn
qHibB55I8qsknqTzwBOHYDU9hxweeCJ3/0KxfAEPPFkr43RysJgHnmw2uLe6
o5wHnhj2PhB0VfPAE3et1T5in3ngidP5gFzVNh544nx+kd/xbzzw5LC+Zk6F
kAeekFELV+qM5IMne4c6uIXifPBEat27UMvJfPBE4WPKbPHZfPBkcGaC7et5
fPBk1tTdaxKV+OBJ58Sh0BB1PngiXDi0IITigyfVatsb4w344Emkn3tkiQkf
PMlM1ZYkdvDBEy26x8jMlg+eKEzb/zvTiU//D0goyeM=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 1.}, {-4.208288704683761, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.407895621012*^9, 3.407901745535*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXV1oHUUUnuTeXLWQqJDaakKT1t7QWLXQ2NYEQxKv9SfxJ4KlT1IvbSXx
pykxghWhb1qi9UkomlLaUqXgm4WqILZQ8A+Kvog+CKL4EBAUhCKocL1z5v7M
zt2ZnUzO7J6bbOBOZ3fOzpnzN3vmm93tY8W5qYMvFuem9xd7H5otHp6a3v9S
74Mzs+VTmRbGWqYYYz/1Ml4vlauV4kZWKpVYRhyUa/Dj5V6ossTah6Ha+cnL
cxdLI8Pvfr/v6Q/lOm91actJbIErMMvD2VsxGJjo/r1/dIG18iPWxuu8Bkdl
Osu2TKAtF6HE66DagzF2FzpZpqoc1bHbthl00fna2TNX/5wYP31y/thluc7p
XNoM6vwNytt9e4iLJzlqL6teE93degwlm+hu0xvgMyj7seeDJnN5jdE2qd1h
GMOFbrvegPNQDsRliCaYyx0i0NRd3sUBfDsHm9R7xEYon6Me0nHyojimqpt5
cVqX7hxZbcFOF7DpZkWodMA/fWCCcrRQcgvJQDTmvBhZxeipDqwG4nRU38HD
3pMjQWiD3zeSUvwLpvSK4kyykpzBhe6q8J/rRdLB5KQjA2WeU3OfoiSBWLPv
1I89G5JEyWBKRbjqXyuUIecgPNpq6MceQZFTOPK/XARHABhacSldJCcLY8nt
dbyJ0qiot6daS7Xms/0BqLY7rYzC0eR+ONv9yvvnvuWUJ46/dcV3km6XmLuA
x32yGPyMfKyrm+hcRfzj0fHT/Pi/sZEFb9k8ZJzI0PEilAMuusLQqaw3VY+6
uonOMs3eoCp/cfLxs7z+T2FswWdW1am3xBdQDmFrX6Vz8WgfVhKG6FeNJBtC
NYyubqJzNebDX3/166WZQxee+fjij2yr3mpiMbgb22pqGzZWgm1RlS56Mhsw
Wc235QPWVaytq5vo2H16DzkA5ROulvd5o8boA9uTwu6m7rfMYd/zi0rnMr+g
e2MlqxQI1asUsdpm2FaIi5drZODmnMiQbwE70ExZGkbGhh2EAbojIiAhD8/U
QC4C4DERbyHC6kmXO4WP7NMnyIt+t1Gz5XPC2W8QuVAAKW2F8ghFfJv6rkGc
vFxNH2j7RbhBGMSfDXGNTEjqbIDoGzYIXID5MBeNGkd9Do/aKiALKvqBasXW
UFecmVgkSrgWqpsoZI1+b4TW4OnvUN7RDHl1XWMxZhQBZDDOOdxgs0tQ3kVx
7RL1PE4CWauhLa+yonDzrjxpGGr516Ecomhd7D6aavmzJanMzLaPgvApgQC9
mSJAtHlRGRO9QENmdSfF1ZaJ7nk5jlO4iBar5B+6bdjeoOjD6H2ckINiPgWT
aPOiMqbvpDQ7fQDNLxaUtq9irQGSka3vckVguspD3VHXhOHJGaUf/gPstwEl
dkF8nVFilg1cY6sQq+fQkzbyKnP9CajmdAupKBxaYOO3+FgP1pPBpT1AC29l
s7U+YO5l5rprbFG6KBE73EW0XSU7LkTWeUWZ29UQ/AtOdMcJTUjLoaUva9ar
noOdTxog1x+aTFfGT2Jg6NFEt0Ovx0+h7MHWFXKQOii1x7dSTW3sEb3G34Gy
jyIYWddsjJhJV6yGOaA3TBHKeygivskYFBe+6/FhT2u7HxV2F7nGs+lOCz1e
drdX2hB1HsPH0WPhlOz76e4ELVbbKYKwLn1ckb3sYAr30+PFrumTn1UMGqVQ
2zLaAQqV3pXQU2J9jESLIrvwRnk+eUnXVCBK3buDOUmtZoR5FKo3L+WFxZ/3
7vmAH/+9u3BSrkeikPAWKNvg8jJkgI9pDCX9Q+pRwxMfS9hoOzzTEHRt1s/T
t0eMtQuqedc3kW3H7vQuwLqIsXc0jh3bDWxdQm1jmyPGLgJyMwUfkevbpGHD
qK8R9g/D69OLhF3DAMYJGHkrxhcb4vIY9pRenG/M4mA7vKtFAm1FvTgCnL4b
4ysNtiIsN0bk+oxesvNQbvPpdxg3XmNYHdWLJzDuHdgfRfHpo9b+elwvttDI
IMY3JLCtjBGqAbq3QdY1tvIYUjgByRd8aA0jKY3LsQJ0+0An476/MoT9/Rts
OltbGLxLvGIxSUFbPrxu2esVS4/sBjWeWSmORXFM2C6ATeebl7XLVqJdrEZL
1b282m8k+b0sKvtrPr8OZ0t36tgbl3n988OHLnA6+di2zZaOSijHuUqhGMpx
jYmxCR8zTFJ0vnmxm+SZM90Jrlzypdqdz+8d2tJRDGWq08ZKiU+KY6r+50ti
zvgo3dfX01FwBypuQ13+83rEgNL2Okr7invowKV9iJehDxCIc+W/QYWkLbCj
XyVVqdRP55X/9LxqJNBLRjzUoCHJ6oWBq7XvrQUkuzecVP2PWvhvZzhpNvy0
pmMN9WAIv0w4aUZ1XY20YSLsMgwKzpoIEpLRzrbqS5iRBrNyg6XJ3Vbz6yEi
otZHZBKwHt00bOmqdROBMtYkPLc+7eWCjtKqs+quYGt9ZlR6CTtnmB6TvtfI
7fBwGKiuKCIx7IKOZZxrR+4v5VuqRFRqqibgazDVaMi5MUs622tpsIeD6cY6
a/kfDDTeHg==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe10", "]"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
   3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
   3.40789859744*^9, 3.407898600709*^9}, 3.4079018137980003`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.058469014436188606`"}], ",", 
   RowBox[{"-", "0.31285217557165423`"}], ",", 
   RowBox[{"-", "0.17813246892554643`"}], ",", 
   RowBox[{"-", "0.1781324689372814`"}], ",", 
   RowBox[{"-", "0.11592850266914`"}], ",", 
   RowBox[{"-", "0.11592850380442976`"}], ",", 
   RowBox[{"-", "0.17484998577630304`"}], ",", 
   RowBox[{"-", "0.12832579342258368`"}], ",", 
   RowBox[{"-", "0.14654744205146972`"}], ",", 
   RowBox[{"-", "0.14654749161576328`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.407898398363*^9, 3.4078984964709997`*^9, 
  3.407898565705*^9, 3.407901754586*^9, 3.4079018142*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=100", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "0.09"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.001"}], ";"}]], "Input",
 CellChangeTimes->{{3.40790182767*^9, 3.4079018303059998`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe100", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "100"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", 
                RowBox[{"-", "1"}]}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.3918681005362*^9, 3.3918681291562*^9}, {3.391934674032*^9, 
   3.3919347032469997`*^9}, {3.4079018338*^9, 3.407901834455*^9}, {
   3.407901915499*^9, 3.407901916137*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}], "&"}], "/@", "incsRe100"}]}], 
    "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.3918681408311996`*^9, {3.4078957572019997`*^9, 3.4078957640150003`*^9}, {
   3.407901920362*^9, 3.4079019244370003`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9lAtU01Ucx1EREx9wEhVW0JQQeSTiDoiJ/CoVQrB8xUEhITADVEAdhBN5
CYHxFAgcDBxOHvv/78VtDKSOcSlDBwJ2FEQl41BRoJWYYoJA/Tfv33vOzs7/
bPve7+NztiwsZsenM42MjIK4l/6dPy3GuSJbGSaTykc3toZtgytR89pnv3wO
hd6V7Rm4HJOJpKhL4qIIOBFcsldQzn8eCynOI+/4l2Fy3KLeZ1Aiht5Ncxdt
lPLfT4CPUt/XTpdicmxkhesrKBEmJFunkkr436dApDi69XIxJp4DH+aWRqeB
KFzQ0VnI66XD0sodg9ICTL7xnT/TKfML+DjOReeYx+tngZk63jM5G5O3tbr4
lrNfQud7ns9Ksvj7cmB/Ur7mcAYmzTYZD7Y358H9DSKhWRp/fwGs3hz+JDoJ
E9kPQtWRiNOw4G/ZYIGE91MIpovjy8TxmPSPGy6Exrmf37A6wvsrBqZi0ivl
ECavudx70yT1K4iatj5TG8H7LYGq5mJpfjgme/at1ytCZLJylsde3v8ZYP1s
ZPJATMqkhgNPSwUu7Tv4PGUgBIsCtT8md7r/3flrdTm0hTaW7fbm88kg2+db
0XeAiZVxwMK3NBXQ09vvO+zB560E6+fpt7pdMQlcZxCEu0mXfhY78vnlsGv9
7aN3l2Piv/bUu6FDcqi2c9f+J+D7qAK/uJFrv72KyZ/b9YpVEFYUOHbKlO/n
HMwxv37s4QxMsg/+8Vz56BzkD83QLB5HtC8FOPSeNJl6iIhT5hIuggLWCp1H
q39HtL/zsDro0DPze4hcq9rc9HjqPIRXy772uolon9WQKHQYcGlH5ADXlqVx
DSzxabMbakG03xpQoKSgEC0ipn2K2A2mtXBQpws5q0S071ow/izBtqYSEUYf
17wOlgao68RFiPZfB9vSr8ycn4XIFr3cEiWY1S8IOJSI6B5KeCqt7ZPGInJf
X/frDExmbugq3IfoPgwInbU5uwMR0bf343IWmp1vHX/oh+heLDz2HjcLAEQc
gvO/H1uJwH5haVfeGkT3Q2DpNOxTbodIO6cmcMGwp+2o8IQlontisGLlJu7z
EIk8/VciuNWDJGfjxatTLN23HipbHCdFoyzhzHGRL8DtYpZN/IWle18A12DX
OkUPS3Zx8HCTQm5I1wBzhaX7q+AwdPgVN7PkPNden0IFBabeo58wLOVBBW+k
dfcvlrHkyVRPwsgKNcQpZthrclnKhxrsFJ5PPJJZsskAgBrWxPnGoFiW8qKG
CXfLroVhLCm2NAQCk+A0v7CdLOVHA/CPhatyE0te2NPAfqehziE3lvKkAZQS
Ey+wZ4nIcBpApUrJ9bVkKV8N4DbHURI3lyUnWzs4ghog9Horkk8wlLcGsF41
UtH1gCE3ufW5TqATo+7pnxjKn5b7f6vQuXczxNYgqIUtw7NsEghDedSC3N46
qk3FkKMR+gEaIeNE6PZl5xjKZyPk+99KzStiyOWxldzCjfDBVUmDWQZDeW2C
da24rjaeIYteGISCA+pVuyMYym8TzN7ibmO/hyEGd7omGIh6GmThz1CeL0K/
WcgdWy+G/A8LMuyh
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.057},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, 3.3918681412172003`*^9, 
   3.391934678605*^9, 3.391934709844*^9, 3.407895671852*^9, 3.407895764725*^9,
    3.407901929835*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe100", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, {3.3918681485332003`*^9, 3.3918681625252*^9}, 
   3.3919347211870003`*^9, 3.4079036693640003`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJyF2Xk4VO37AHClVGSpUBQpLZJEUghHpZSlTQp5y1ZJhQohSiTKLlFZEgmz
2AnFmCFly8yZYTCMbCllSXuh3/R+uc975p/f+cd1X8/Mc57nvu/zucZzVti7
Hjo5U0BAIEJQQODv3+nr2ia3T5ai7ZTxrE+omf0BxD7zenW20nRsi0Qe/DyC
GLZTfl11fu5+xwkZ/vVhsbjt9LgbItC2a/1y33bKFclso24fd+Slz3O7S/em
P++F3OSQDMSL2ine79eozyX5InncukffGNPf90ecQxSfbxhpp+h27Q+PdwlA
ypf1bCydz5ma7waipOYnlazMoZTtnT9zffBN5NjvdQt69nCm5g9BjrJqzoae
5lB0Cl95Vjy8jfht7t706CZn6n5hyLJ6Bfv1TziUEvmgDwdLIpCC9sMyGjWc
qftHIY9/vOylveVQEqsVci86RSPNc7IWD8zpmFpPDELpLTyava6Dwvn57w0R
mfiS3cqmHVPri0VmxwUEubl2UJZu7FwldP0uon3ysGLinY6p9cYh507nVzeV
dFCsHbf9nRE5GD/4Q6urY2r995BGdPCh1JxOyoP7/15I4z8HV5erdU7t5wHy
RazOLc+mk9L2+rt5b3oCwnqgvoAa2jm1v0Tkj/46qSOUTorMrCNiG/KTkGLz
Bx5HfnVO7TcZmW3ZkMw25FIstf+dEPn4Yp+HRBd3av8pyJamA4TOTi7FdOut
7bb9KcgVyqeXP3jj/8vHI0R+y287614u5ePBvzM+QhJ+/BAVGeBO5ScVGc0Y
sHcf5FJCzw38zvqUinhrii5aP8Sdylca4lt09B5nmEtZHyzN20Iaotb10W3n
CHcqf4+RYnqV0kbeeP2jXcWfJx4jT6Mtr3t/4E7lMx1Z6WjZMo93v7O8bC2Z
9QTZrlKmwnjDncrvE6Qg4pxeTSuXIsxOc9MTzkDGBBSlul9zp/Kdgdxar0GS
ruJSCH+3K5GJdOodv3C4iDuV/0xEYj7T8ko6l2L8dzrpLOSQhWWo1R3uVD2y
EN0IaYlHV7mUwb/pXkZAAtyXK7We4k7Vh4BkXM/7ts2ES/mbPfpKImLT+UI5
QJk7VS8isjFrxEh3JpeyziaS9lWJhNzYf62A0TBdPxLioywTq+rRSanlzSa7
kYwwv65J2r2gY6qeZGSFfHVpWC+HciZ6yBfRzEaO2Rmfzaud7udsZKahRY/2
Uw6FtzjelnOQpqBB18xMzlS9cxCNsD2plxI5lMO85uGVFKFqeSS8iJ7u/1yk
UnN7vEwIh/KYlz12Wi7ySvVhnuQ1zlQ/5CLFZsduXPLkUL5MsLzer8lDHIL7
vQRcpp+XPMTVNF0t4iSHYvhvA+QhnrKzZ32x4Uz1Sx5yomk8TeQwhxK75N8N
IT67tOxyjDlT/ZOPHFBUYJcYcCj/W14+Utvzsf2PJmeqn/KRjjRKhhXv+df4
9ypAOvZoWd+T40z1VwHyumvv6G1xDiWwso7XQQWI645TmpN/2qf6rQBh/Kab
UYbbKUxe9Xk5QYb/aR5J4Ux7VYgUZufH36hppyj+O2Ehsr02655TTvtUPxYi
Ow9LtnvHtVMuOf0tQBEifpBwR5Hn3f/6swjZby31XDqjnVL1VYlX4SJkkWjU
yCgvX//r12LE502cgE5sB2XR/xaIzPnoXxpQOu1DMbK50dVIlttB+Xd1r4qR
da/dywtndE7181NEgSIxW3NVJ2Xa67TcnIH/ek2iuQvqjrWB11Wx7HcW7Dbw
+sy7+bTHz9vAa0T83fia1DbwekTtpzknuA28Fvtty6o83wZem8tZ9beYt4HX
mR2pB+V02sDrsIZl5rEKbeD1hfcNKbpz2sDrfYso1xYPt4LXJ/yV2WuaW8Hr
Ia+Te84/bwWvlzjvNhlOawWvP5c/2Z8d2gpeB+u09uVfagWvw6OHBmbatILX
N0VrS58YtoLX7IN9fpkbWsFr1kS2veTiVvB6hvraLz8EWsHrY/1tXqc/sMHr
lTpkS/cWNnjNnRcVupXGBq+Rcb35jdls8LpQOXiPRSIbvL69o+/G19ts8Npj
Z+SqVh82eO3af4imco4NXmeXZ81QOsEGr1P/HJqYeZgNXhtNlOn8MmaD17ZP
bReZGrLB622mAve3GLDB675HNtJf9dngtYSwvls5b3zaaxHvqpryXWzwmqWl
T5Pdxwav96oSB4at2OB1zJPjSiZn2OD1cPtmopYvG7xOOzKQ/CyGDV4vdu1t
bCGxweuVFX4FkXVs8PqHrua3Mch3BqIQ0+Uos6AVvI4o29q3QacVvL5bf2CD
x+lW8Do9dXLS8n4reE1YNfONN70VvA5ryeA0iraB16ceSvS0H2oDr03T3u7R
4D0P017vudi/NEegHbzOe6zTe9m7Hbx2Qw8VE7ZwwGsLPq8lZfBeGxzHe/1z
J97rTD6v1/B5bcHn9ToNvNf5fF5f4fO65ybe6+18XtvxeX2Uz+uXhnivRfi8
FubzWpPP6zY+r/fyeT1DD+816xfe6/02eK/vkvBei/B5/dQc77X+AbzXt0t1
Tyy0w7zeOEdsUGF3O3h9qz46RU2lHbx2Kxdm/1nUDl4bz32cKDHZBl6HxRgP
pA+2gdfh5fJJTW1t4LVdjpTtGX8meB1Y9yPiCsS2iHfMm8v5vHja62Ib043i
15ngdV3yhet3ePG0113WTZ+2BzDB64otl5/JBTLBa821KajyDSZ4nbVsZOB8
EBO8/vEp5vzHm0zwetfB/iRSCBO87lR4HlB0mwlejy0d+y0WzgSvl2kO0qiR
TPB6u9Lb0+wYJnid4TBhaB3HBK8PNzvZWTxggtfI3h59VjITvNYOsLrdk8YE
r+NCyrNCs5jgtfTXzJXtOUzwWn/1cFtLMRO8/jnTY1NIBRO8PvpuQuZTDRO8
Nr14R1aCzgSv/VT/Cee2McFrQkD1/AN9TPA6rsQSOTTCBK/1uQ9EGn8xwevs
5ErtNCEWeJ2Y1nO1YCELvNYVqXnbJs8CrwdHiOGflFngNeOkRXzLFhZ4Penq
usdpBwu81nHplQ01Y4HXgUFq8cqWLPDaiK1UqGPPAq9NOyIDS86ywOuLXYR5
BHcWeD16Ud5Qzo8FXt9DL4evCWKB1/2rX2dww1jg9Ucrn0rbWBZ4nblkS96r
BBZ4HeZwKVM9jQVeC360211EYIHXQVfE15zNZ4HXnPyYcqcyFnjNMDjuS6Wx
wOvfDzolgutZ4HXkmUNVtSwWeL3svW3bPS4LvC6UvfNr5nsWeH38Hjda+gsL
vC5If6Pc84cFXl9SN6x3n98MXrfO4ezlyjSD19dUE9M3KjWD11WmK09c2doM
Xj99Es1uNmoGrzsSJUssrJrB61pLt5OS55rBazvHpEBV/2bwumMhO7z6bjN4
zb5oEPKb1Axeh3uKMiZeNIPXOukLl4y/aQavjwVm3lCdbAavpU63LWyRawGv
K2rS1PUNWsDrP67mpIqTLeD1V4nugfKIFvDaOKXIu+BZC3hdYKgntX6oBbx+
vKq24qUiG7yOWiQia2TLBq+Vz98PvZHGBq89XCdbrgyzMa/9qneY7GgFr5lR
dw22prSC1wPMJ2dL5rWB10c/yzzJ828Dr1e4HpVXnYt5rc7ntZQQ3mv1OrzX
M/m83joH7/U/fF5r8Hl9loT3WqP4ra/zf7zO4hbcP/8fr/+0awtf9Me8fjnp
mufpj3k97iI6y8cf8/qxzXfhv/G01/IONY7u/pjXl0PDd53yx7xuDFjjbuqP
eb3Bw8FQ0R/z+s0/D8LfXsO8tstbmBR9DfP6yGe64vJrmNcDupuW37qKef3x
ZdazV36Y1/TMWrUWX8zrA23RdzOvYF5fcWsiavpgXhtFKz+64IV5HSl2rnqf
J+a19LGUDeWXMK/P3dhjSXDDvP7iqZMrcB7zepG5nFSGE+Y1Ny71hL8D5nWF
6ibBs/9gXqu97py7/QjmdfNS5sdWM8xrMdO4uLmGTPB6Zl6wNlmLCV6PFIW7
VqxngtcNW5tlvOWY4HVA3NGX2WJM8JruTqQLz2CC12KRj1/7fkPB66Pi2gfz
R1DwennMuXWdH1DwOj/j7sKO9yh4bSNYQup8h4LXt9z2qTry4mmvMx9sm7uW
F097raOWOv57AAWvh5svtdby4mmvvVSvrL7Oi6e95prlyi/hxdNeM82jHEPe
ouC1hp/Gk8Z+FLy+afqS2deHgteLBc+m1Pei4LXMJ1UN/x4UvFZ6UPZFoBsF
rzleT11Mu1DwGsly3mLXiYLX2/ac5epxUPC6w5n78U0rCl4ru0Sx9rSg4LWe
GH3kEhMFrz957vO1paPgda+tf/z8RhS8bv21YptnLQpeOy6P0054gYLX2/sH
tL2pKHgtWqxbIFqOgtcFijcHLEpQ8NqVvqNzXwEKXnuVS1l+JaPg9Ujq56Zd
mSh4vV8q7pRuKgpeW7ej7awEFLxunLDyFr6Lgtd2cduEW8NR8Fq8/lTZ1pso
eE0SlBJQvIqC1x/6yr1iPFDwmkIorfA7h4LX2ivmznB2RMFrHVuNntcnUfC6
a/GcCvdTKHh9mHBkse4pFLz2ZPzzRJD3+WmvV050b8+yR8Frs2CNRSInUPBa
+KzprHnWKHjdZ7J3701zFLx+0Xiiy9kExc5DiMd6H29HwWtzai1l3RYUvN5H
OHD+uxIKXj+03WwrLYuC10fWatgnzUPB6xbyyftbu+ngtfHqQpsNY3Tw2vxB
+gV7QQZ4vV4YnWySZIDX7ZIT0q5rGOD1ySKzJC0tBnhtMM9AebUxA7x+JqE9
omLDAK8zMtPvGbkwwOt1eQTVc/4M8HrF8pwvUTEM8Do59+Ae4mMGeK0g0eqf
U8wAr0OWPqNHvWKA11Em5eu3tzPAa9n6js15HxjgdXKxnRZ9nAFeTx4T2hom
ioLXSVcc5qByKHjdFN0cHb4BBa8zQvSVCLooeK1hmfZ1oQkKXuvMkvIusETB
631dAZ8vn0TB68ePRB+ZXUDB69TU8MCVvih4vUBC7ExfEApe+ykwM69GoOD1
gE46ofkuCl77eW6xrUhAwet5iG/h0EMUvH49cUCe/QgFrxcs2//zdAoKXvsv
HiwLvI+C15+4b2sNbqHg9etoh32fnTCvDx71ztJTwrw+XfVxaHUlA7zuSuvc
P1rDAK8NxcsOCTcywGvGNRc3IsoArxkiV4vG2AzwerXeZouxDgZ4XSviuKm4
mwFeX5Lp1jd6ywCvs7SE5cmDDPD6cWRsx/AwA7yWFp2hvugzA7w+/PxuoMJ3
BnidbBbUtew3A7xu8PPiiv5hgNczhs/E/ZiJef22IzusWwjzOnuzc3aDMOZ1
hoiHWbkY5nV9nq1C8ULM64yRjYal0pjXoYGR+q9kMa8Vx0L+9MpjXs880NE9
XxHzWj7pcNaOtZjXafFBV2+sx7xGqy8M0DdiXjvuSn6+ejPm9SOqrKy/FuZ1
58E/Jh26mNc6SV1Fmtsxry9/yC+8uQvzumFxhc+rvZjXfX0q/WNmmNfts01M
xg9iXnMiqUZtFpjXNSK/fH2t/uN1Sv+RFhvM6wvHJxpZJzCvdzW7qjvYY16X
yeO9VjyB99pVGu/11ky811voeK8rx/Fer+Tz+rQz3uuje/Feb+HzepCA97qv
Eu/120y81zNO4L2W5PM6ff/9u//1urGGOh5Mx7wOoRYGrK6kg9cjnLFDi3Pp
4HV/sWaPYwodvPb9uWmudDQde9/4Bl2sEUAHrxXefP9efYkOXn/JEtRrPkkH
r3fl7d7pYkkHr2ce9DBOMKGD122NSIwTQgev/QOXefVq0MFrkQqLONl1dPC6
aunZPrnldPAaPd3XOilFB687ZtDD6KJ08LrK8Hh3hhAdvDa3OpuZIEAHrwuV
6lNvfW8Crx11P2v7jTaB1/KXGcVmH5vA655kv8u6H5rA6wvCymejh5rA61y0
UyvxcxN4fTPF/F3RRBN4vWH+feIK3nqmvbbyuujdIU4Hr7s/EQ0OLKOD15dV
BlQZ6+ngdcGs5451+nTwWiQ08FC9BR28tk7JfZFygQ5eDwrmfQ25QwevL3i+
zc8rp4PXdlZCVVVf6OC1pKh9rdUeBnjtVoL3+vxDvNcLRPFet17Fez1LGO81
aRveawKf1wv4vFbh8/pIBN7r7Pl4r2X4vH5hivf6my/ea9IQ3ms9Pq8j+byW
E8Z7Xc7n9UM+r6X5vJb8f7z+loj3OjIO73Uan9cmfF4b83ntuh/vNTsB73Xx
IN5rUT6vY/i8zuLzeimf1wF8Xh/g83oTn9dvWXivb1+S2syxx7zWl1GnPLTE
vH4e5u5eYYZ5/eJP0BqlHZjXf46kMOs0Ma/PKV/siVLCvBYYvSxrK4t57WQR
o71EBPM6/qLKj6hfDPD6/lfBTfHvGOD1SauvZe9YDOz8WsFFUpXCAK8nRZwe
jj5hgNdHNAQqb4cywOsTkxESoucY4LWbU8W38ToaeP1uINH5JZcGXtd9qs6v
HaOB1ztpufHfharA67sH2jt3Lq0Cr63NOKtTNlaB13leCrXjO6vAa7rzqsI9
llXgtf6KLr0L56rA6wJRvXE7/yrwunB94N1ZsVXgddr+4AiDjCrwenlCltTv
0irw2lvWo066oQq8FnlSdv1SZxV4nVBZP3t4qAq8zhaQR09MVIHXS4MEa5NF
qsHrRRzRbt8l1eD18ErBmpeK1eD1syzPU3s2VIPXTUrP7Wmbq8Fr6l228Wft
avD6JT07PFq3Grxeolb/zpgXT3t9sXn3HJpWNXjdu1mk6rZ6NXgdbG0+d9Wa
avD68oC/85BUNXgd1vN7n6RANXi9pv7pF5feKvB6PmHdZeWKKvBaW71n73BY
FXjdaHr8S7hRFXgtbjyk5E6kgdczuN6lSaE08NrDYUmcig8NvH4j+kuh6RQN
vL6L7DM4f5AGXsfMYseNatPA68U2zweNFGjgdc7wxh/nZ9HAa+cjHsqeb6ng
dQjL6lRqDRW8/iT+ySownQped+Q0Hlh6gwperzTu/tDvQAWvN+a2f4nfTQWv
L6sfVYnfQAWve16oKwfLUMHrXvKH4F3CVOx9o9dOa50/leD1hQ66K/F7JXjN
7m1r/TBWCV5TBQtyz41Wgtd3DvkqVIxUgtedWpJlt3njcH5NdWVH874/7XUG
tyg99WsleL2QdVbn3s9K8DpZUyD5yGQleH1bavuDV4JU8Hps0GcZdx4Ve9/4
UHNWqAQVvJ4drry9ZjEVvO7eJLD+1nIqeH2deVSwaS0VvB5yXRQfq0YFr5s2
tn9ja1PB6wrbJdvv7aSC19fk4jQ+mlHB6/sCBr75Z6jg9RkJL+GIm1Tw+s4G
p7h7j6ngNbLMzmWoigpec2Yh41l9VPA6rKrEeliIBl7vMsqfwVWmgddF+s4x
KQdo4HWh+NfX9l408Lr5llXD0VQaeN375Lh72WsaeP3CtNS9aYIGXqfpudQM
8Hyb9nozp3q+48kq8DohTlKlNLkKvD60QiPHs6MKvL4QUjeyf3k1eC1vfCpp
nVM1eL3pXrmPakk1eK2aa/hoVOIFeK3K53WoTCnB4ynmdSnr7QLdx5jX+08H
zLOOpoHXizTKOK1XaeB1tIr1Ueo5GngdQqIMLD1GA6+rY81Io3tp4LVSwGik
kTYNvLY107RTWkcDr7dy/T48kKGB12XLBBdmCNPAa8KE59DhcSp4bed8aIg0
TAWvH+5TnHzaTQWvlzyMK77WTAWvLxZHhIvVUcHrrRT7ZW4UKngt4JlwIa+I
Cl5L+Kr7dJOo4LWaqNDtBTwvpr3e5m8icSSZCl6/fjg/9OU9KniN1rmzA2Op
4PWajfpiudFU8Nqne1DnShQVvI4S2uu5kjc+7XWbsv3x73eo4LV4mF+z830q
eO2faLdUIZUKXus3zB9bkEMFr1UaxjP6qFTwetn6zTdpnVTwOvGPSXsWL7/T
Xi88/jVkRijm9f16vNer7PBenxXBez1PF++1x8cWnNdvTPBe6w/hvf5mjPea
WoD3uvLLKM7r20S810rb8V6L8Xl9XA3vdRyf19oEvNcNLnivF7DxXhvweT3y
PR/ndag+3uuLm/BeV1PwXpt04L2eyed1+ya81x4L8F4v4/PaJQnv9Y8wvNcy
qnivl/N5Lc3ntR2f1zJ8Xp83MPNu/o/XAm0JZ6IsMa97fB3D6hwwr+OOGY0H
uWJen7S2PfPiCuZ19EDvwrAQzOvsuTeqO+9SwWtC4zZ2RRoVvM4b2Ku5OZ8K
Xrcl7bHbSaViv6/fevqP0ang9ZY5Z5z28LyY9trN8Gqu6RgVvN4cmf5yDvRn
EfLjpZp4oDQNvB7ULv39iufXtNebR1z1+vVo4HWAY8anvkM08Lr5kuCbFica
eF295m5N/TUaeD06ZFPaEk8Dr7Nmh2soJpLB69W7Q5tik8ngtcFpH4vBdDJ4
bSxyrGN1Phm8Pvcks9e4igxe77WRszreRgavY3/1pZz6QgavxV9ZpZyVzAav
Wxwv1XtqZ4PXRsZymnccssHryJl5qY0x2eC16u63qZtfZoPX+csjMlsFcsDr
UrWIdQ1IDnj9KT2JpngjB7xepXHC9ltjDnj9vNToabZYLni9drZksI52Lnit
u6B0XfapXPA65PvDGtn4XPA6Z56FyZ26XPDabyTwgcqMPPD62zYh2oROHnh9
p36FtoJXHnjNUrBSyi3JA68vN+583jCeB14LmWwKumeYD16vkvXr147KB693
z74SxenKx35fC/1cStYoAK9XSUSl94YWgNfUhg+hZe8KwOsPCg7a7saF4HXl
6/7v1nmF4LWj0ugzqlwReH34IbNyVlQReF1ncJB0a24xeL1JZ4JYEVwMXu9y
aL++WOwpeN3W3RMllPgUvO7LdHQYVi8Br7s0Qv1n00vA62MU99yVnqXgtZmM
vPBJxTLw+mfGb4H85jLw+s0CN691t56B19e7U+yEtJ6D1zI/ls56yHkOXt82
LLoY5FIOXnsyrjSaD5eD185et1yeHasAr1Uk+gZ3lFaA14K3yaI/51HA6zH5
u2XFByjgtZMVwuJEUsDrTTsf7zKppYDXwj9i8/wmKeD1lVOIiOkSzGvnTNE+
RA3zmiaQsNLDCPOaUPozafNxzGuBrcuppe6V4PWZqGfdmqGV4HVN3wAFfVSJ
ee2Wf6awpBK87gh5Qf7VVIl5XRKsSxuoBK+Ft/pGrBbAvJ4XHJ+iJ4N5neH2
K2alBub1JwTvdSQb77UBn9enzPFe91nhvT7E5/XiGXivbfm8ntuP9/oYn9e6
fF4/FcJ7bcHn9WA43uvzJXivY/i8nhjCe/3VHu917AW81+/F8V7/g+K9rpiF
97rGWaR2diLmdbNSbRA5AfPazybuuGwC5rW/ynsD0weY182G8xbtvI95bXF9
T+FkPOb1Lx+ziatxZPD6jLtLZVUsGbzWcJCta4ghg9eLkw91348ig9f/eGx8
pRxBBq/F8zx1r4WSweuGHbo/4kLI4PWpq5H5F4LI4PWgnoaCeAAZvFbb5fDF
5SoZvBYdTuyO8iGD18JSng/cPcngddG8y6jMRTJ4TUga1/c/TwavnSfl7mU4
kcHrRyWx9yMdyOD1mWtZglrHyeA10UQ+McWSDF5/i5fdWHuIDF4rIJJReaZk
8PqFbdEDq91k8DrUqFyDipDBa1YzZ+87LTJ4Lff7RstrdTJ43X71OdddmQxe
H97Weql9JRm8Tl+9pfCPLBm8NvF4X9+3kAxe29+x/HpLmAxez5Fo8h6ZQQav
I/tn5Ev9JIHX65oDhSZGSOD1VgWV0fS3JPBa7dj5HxKdJPDaIT2xVJ9JAq99
FdZ1bawlgdfSRi9W91eQwOs00tVjJwpJ4PW5V69OPMwigdezTnspPkkmgdeL
j+Rlut8hgdcHbtTMnM/7J3Daa/Fs0SPnfUnY+fX9DPZ9NxJ4PR6s1xjjSAKv
FVQKw6wsSeB1iUrLlRETEnj9efdP8SMICbxeKxbfGLGJBF4vWf/OKGE1Cby2
fnFJwW8JCbyWIaYIbREhgdc+YTufvpwgYuchFcrjGqNE8Lo1lkj07SGC1+o2
6plpLCJ4HX6isYtQQwSvLyB1JrElRPA6Snj3qB2BiHkd8JojlUgErz3SZqzN
DyeC16vTdL9oXSOC15s89rqS3Ijg9a8tSxrF7IngtZBNgIm9ORG8RsYk1bMM
iZjX6/sb+jWJ4DXJ39VTdi0RvM7N9Q/fu4QIXmvOUfbxmEfEvG6qJKX8IoDX
cqrvkxo/EMDrBjLp9WQHATsPUUp6teU1Abw2fico70UhgNcpa+WcX+QSwOsg
P9uDK1IJ4HWkacv1iDsE8HrfS58C8SACeK1dSc7M8CSA11Fn81StnAjg9Wzj
LfJrrQngdZfzt2OSpgTwmiN+ok1Rn0D5P73U8bQ=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.4},
  PlotRange->{{0., 0.09}, {-0.48335348155841285`, -0.05125534084757507}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.407903672242*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztHWuMVsX1W759sbvsyirKKquAqKSgoE2hbKOwIFRhcTGoGBF5+eBRFtzi
q8VgtSrR2tY0fQE+EGqtbdWWgNWmlD5sbGxDm8ba+qPG1pZqGm0TbU1Z3e6c
c79vZ+bOOfO49/u+u5ZNvrt37sw9c17zOufM3IUrN6+5ZsPKzWtXrxz78d6V
m9asXf3JsfM29g48ylflclVrcrnci2Nz4r5/4Da6nJDr7+/P5TExcAc/ce2G
21wp8m+D66ibv7HnUP/Mc7/+1fs+9zP5XuRyabbsM3S1G+A6PbWqBtKvLLn0
UZH+z9w5O+V7Pc+3bChrco/byJ+dJpoX/PL5P/94Y8/eFU/v/4N8r+f5lg1l
qw+rHpI4BYxC/rSmRQeKYEwoi0LJ3kkrwB5sdkmwIPXyy3S16/CZUnw2PGv2
kbv8/v3W2pS358Vr42rWa7uPru1auNbpeqZAXwhlGrga5ffvsdWm0nYpPKul
hMZAW+WA++VYRsddeecuuorliJxcXEZuhYEeOzS5uIzYCgdcb9cb/VIHJlxn
QPN2Gs0lZpDK6+vxPaWaWwztpJau5hJUK4q3OhV/ccCKqW1RvDb9dbm21/yQ
s1Zcx72dO8wrRgMNvctB/Icdyoygq7iQbwMEdIXekTT0uX5yOezATaa2Trg2
ssjq4N4wqPoouorz/DTnswjiBzds3i+KvLh82bdzW/VG3uHHpG0I88jsWTtE
tvgpMDWMp/thfC/ycMsju3791oL5D++8Z9tB8UShQE/fRNc+Ba7NPhNVGZsv
wes1Cq0DT0Q6NwxSdSxmm2jMJscx85lPfgVer9f5JKcFlohkSwFpmQgZUZaI
a2giJprZS7FTJ2IXvD6cI0JjNyeKFi+q9PTHDOPLaJryCQFt/Sl4p0kmz4V0
O+Wtunx9KJfvz0RKFSoYJozza9sPGlh8Mjxr8eGJruMRE2pNSj7Iv2ZO/zme
jDf00AxP2v16UwAxTADII7CcDAwyhonbanE3w1642pBxtkGq1XZQ+WKRNnh4
jI9gGEXW5STJsN4mGFeMT6cF1BbQcvGdaqXGIrNjj4dp+Im/j3pBMFF4tkEP
8xzUWv0xhZ/4nRbvm9xF2iSLVEAtiKxQhSJSgkMmrE6VxAhSbDUPOK49UHti
KUznINQYOV5tlb+XpKbykhJFZVGokqo1SceF+1ojajbLgZvByHIY5yUHU582
jStaT/Gz8H9GatKYFrFj4E+WQKx71KRSEAF0VtoEPSJX4e0YWhSNcVGwfZmW
nlBaUZg7RyB7ioHOOv/mlbcKdLguHRhxRMloKgCvEfN5hZeMGBBz53F/csoa
GMx+hT6W/dZxTvzYfq5JfyyEIv4XOjFxH1++wMu/uvbqJ0TqtcUX71HEMFIW
A+cZYFvF1CJfaot3g9OJDkOuqSlE82cFcj317rCi4pL14ghUwyyIQGLkoiey
JByPXQRkDUA1qTbHHKANp8HDdaZyqLEz7pEyag1QVGqRD267+6C4P7CpZ6+M
yg8NfYbJAAmTTHV5TE9feB42KDwUUPoljXX1rzxtQPI6g7Y02SXOslWxFSpN
w8d9olCCy1bFRCfD+pQHqxlLJqp6zOfh6hf4Ls1fhZgT8ZmCYYQVaCT0QUvE
pYrGtXkQV/HcxUsi39caQLYkeHZMGeDlDbwcXiH8qg3txhWXGlqqLXybsfWY
CmuOq5A4x9OiU/CtlOhc4TFiwo54ZKi7UhHTKQb48wzPcJLMOzlOImHVUjOU
M2gqcaUa7AJGIz3pVllvUAkGmXFxZHxYjl4I0gFl8vYxyEy0c4YbiG9xEGWE
kVLmQzRGk+MY+QywvbysNhpkxSCD03prnIYru9a7yI7npows4Io2lBGu/FKA
X+1QYY+BY2fRHOuwc4zt67X05WYMFRC9BpVnMOw0Yxga63MRgHM22/cYWsM5
NLJz/dnJsXdeHFn9FRl0r0H2DLJd6bYWXP02k+ONgdY48uRMm6HjkvigGBxE
d2acCNvQI9d7o0ECH6Exx3iQ9iQxb8EhisdC3aN83neO8bvRoaNi2LIcrtN8
htxyRFD6GHw5Vt1qUJIZNDcwtGtSJYImfWypSt6tDgogkwwU3xBvx8ERl3fy
84pzaXbDtYkf+W2v1zuQP8sCo9phKD3fAqPKb7BjwPX5jUQX0JDehaufC3IB
De4dPxK7aUj/8iNxMQ3pjWQj4WV6w/hbskHpChrTV7DJpdLpX0VX8xJcW30i
kbhqmaCc39hHNZ9II4XAtXS1z8G1La3Rg+32mLiqZ+HaXo5BLJZmAtG+A9dT
XcfdUqGo5G2l0UW32KQkUwMfzU6FHCaYG6MKzwqd9SSZLzg3LSZP3j4AhG2B
B1PKIQ6vdulBX243La7r4TqxVA0kVCR6eh9NAU5YJ1S8iWt5P6cxxlD/sZXG
+Hc0houygeGfaAw77L1mJRZbrIa8juSgVf0q3UUcGk471Mq+2TX/YXHf1zlz
R5LeMVQMb6MUwBNtjHEUf5CBnpEa3WHuGCPNBV9aAmgrAHai/urfF130iPj/
3zmdICY5TEC+1/NsZUNb7D9RNujQjQW91GkyFD+MmbleDyMIjX8eamVLZZWp
hC0s92ok6HyxhRZbacGBqSqEUSPyhoEEt/mw1r8ktrBy2M04zr3MNpuaYicI
BWrEw2U49ocSmZYKHGIRrzVIt9ogXdxKvS5Nzqc1xcha2Szgd5N3J29q0mjZ
/XQlTNZZK5sF/MqiWJE5cHBWB11bXuorDD6fMeXWfxyq7sjCYFOKslnAr1wa
n5Z6cN4GXIZXxPaUGmswRqOjXKpR6U4LW3hz6OKYiTbC7fvTsmaZS0tYGJBx
urz3QDyR01yenv73vPMfEPfvzzpvu8jj0nreH6+84jGRfrNrPmybfq9z5vZo
BS1uxR2koqxoBQ1mHdedwT46weyAxWgl1gNj04Ng2eJ2Yv6Uk4uhzMmVMEG5
7YK1WUz6NHn3Dcq7ppAu5Et5EJP8fvS88O5bCy4sGL62y/d6nkg/u7l3n0i/
tGzptyT1C6ek0WuHPnOKCEYUjnYdg0K7HdNGatyOOT4LBs2S2+rm61lZMDft
uuvOA0dmd+74Sc8nvuc7DsiS5LRdvrfhJ2+2ZbnJHx3CbJWZAlfW0+4z0LJM
wohGNVL12Ex0oOU3R7dXRMWx0xnnOmXxWRIEnrRRrbNQ1lVQ1Yl2DU1t6oeH
5R03pDrSCVxHWgk7PZ6TNyp0EcN2RVEUH4sq09vh3ptY4FRoj4bnDYbKdZxJ
rmUXHoaWphZiz0ys2s3M5xoyhxWGqbemxSQ8Pyp4zyhz8l20ySyd4DWRi+ul
Bk5EcgVMe8DNp8eXanl1JVapgDuALZjtERiM0URemoBE3A+kTsl/apizKOiN
pjbkpdXJ4M5jPvj5BcQINa1VD7yQAxJ8xGfa+3RIqUmPHJB96j5+8XUONCo1
txWc3oVfqIWUVf0VUBcZ9c7EF6HXpq0sfkUcb50DrRmsm92wTsVqPAdr9Gkx
Mh6/t/W3rH+3HHbwyfbhzqdvfdk2sC4ulxV5KPlbg8cCJjIPFySd5QiEyIJ3
k6XlrzSb0I42yZUtWXCt5f5BkwPX7hTz8zh0pQx1qOd/4LjCh2Hmi558BgQX
26TBs4HyiC9zjUBywJSMa6kpSnthGAB/XIjzx2yMGxRjrXqXYdX7P2tw0WEr
ynSAWUnK77iuPuGKRkJ+scLAQDc3aw5wnv3g4f/kAkU2SgASH4YH00JnV+WK
xQjF4bdAnvNKiLHZoKGwK8m0tFQRbVkIJKHo/gWwzW8zMmMxxKOS2fAgPZ1E
7UoSFYYOLnZNndp6G080DD7RmPkcBVoG2D1oSSQRqsfRGSk+ai6juNfML1dM
lW9rnOFqB6wEz6IvI/FW16fi3PBpIVEUD1pf2jkbpL5Bitsw5UUl2puVLzTJ
1DwK2SNcO20FdNQoTG71yCLJ2UL1vUbc3iNWX1ZDXa06x0IdlF9AcGnZqFoA
XFOQE15h5iR9T1MpjCtJGqqSh2dg1cvPdAG7BWs16nks9z4D1ZbGFVKfQJIs
ibD8kv1uzEwZTyM/p1SyL8UMlCuL0V2n+DQ2nbwkHmBJCMHfL9kIJJyWlptL
j2917bZMqufgcG/0YmFs8YRd06oszL9dVTcLJvhSmetxYu14LHeiD8Ush5pO
shHCRVxzkdyB2pyepjPfiENfR1epjPFZ83WkNf/G0PHAL+DEZgFsiNl8qOoE
rnvUw/3ltG0bgRwPrseKOypja5KRS74fS+spbnKekjWHktfqZWq8Q9O5Magk
3V5TRY+8D1pZ016XgtLqm13EhgZZoeUNDn3aRhi9MaQRjMccyopflE7r84ZD
/FiP97RNKrIcpbwTdRmKNLdJRQ//l9Mc55mDHvGstu6Q7i5Jt5lmWX3DAreZ
gdv2Y+M22XEyR0Pi+YQVP8eJOavxuWxgyBy2iBGZ7FbxUmC0mcZoP1wTbUpx
HpW3SmgAFmgUHhm6LFGAM8cIPgnX4M/d3m/rcpyPcP0aDemxOCQOx5224cvP
MfQQDW6XH4m7aUgP+JH4TYREB3UUU6aAAqyM/yb441hDwmNh8MxN3kf9RAQ0
/ZAQ/KA06Zb+fhiJECzyRT95BVal0fP5AO3dl0rN9/op+jO6evLBKnf7MfNH
dDO6I4BDB2lwt/mRzRxFucWPxOdpSDcHkPgCDQ7PJQ321R6SIAPgDWZ4rhYM
Jioczx9Nbd8OE7m9KhkNTMzu0nRpeJWuKfp6Riom8tfpajCKqI2rJq3pEhcV
2xlHw7dq58nU2zQaGGvsfNpRWiE2R2iMMIDIK2AiLSZyGANydTTamNWRRdt/
KWKkgGiMbYncO08WAhcKP862xAUy2IIcQssmOZqU25KVddfQ0bIOZXfLqsyd
6/uOblLjIlRs0SuhZSvhxcmC5+ho2XSDczLfLMtUNneZ3Pz7fc6FzrpzLK2y
WcfvaFn/4ICh0JWVo6zSFeBRNlnvscoBh4lqR0v5zqOdRzZPoB1q80FXjWRC
Xt+F66IsSDmLQ66rNGxb+GbCbYNr1TZw3enk56r+BzdeSXk=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe100", "]"}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
  3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
  3.40789859744*^9, 3.407898600709*^9}, {3.4079036877390003`*^9, 
  3.40790368809*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.7250260236290759`", ",", 
     RowBox[{"{", "0.2747985548951095`", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.88392464230755`", ",", 
     RowBox[{"{", "0.5314059267926377`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "4.107579074964948`"}], ",", 
   RowBox[{"-", "8.071333324579578`"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.909105626877157`", ",", 
     RowBox[{"{", "0.37133640189507455`", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.031020323442788`", ",", 
     RowBox[{"{", "0.32769857335996044`", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6613804301977209`", ",", 
     RowBox[{"{", "0.552151511889809`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "20.144632157305782`"}], ",", 
   RowBox[{"-", "12.131341192957743`"}], ",", 
   RowBox[{"{", 
    RowBox[{"29.137523851177704`", ",", 
     RowBox[{"{", "0.17070047779639047`", "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4079036887860003`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=1000", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "0.001"}], ";", 
  RowBox[{"d\[Kappa]", "=", "0.00001"}], ";"}]], "Input",
 CellChangeTimes->{{3.40790372766*^9, 3.407903731738*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe1000", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "1000"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", 
                RowBox[{"-", "1"}]}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.3918681005362*^9, 3.3918681291562*^9}, {3.3918682208192*^9, 
   3.3918682395592003`*^9}, {3.391934820117*^9, 3.391934825189*^9}, {
   3.391934869854*^9, 3.391934897488*^9}, {3.407903735582*^9, 
   3.407903738657*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}], "&"}], "/@", "incsRe1000"}]}], 
    "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.3918681408311996`*^9, 3.3918682568922*^9, {3.407903748644*^9, 
   3.407903751874*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9lAs01Fkcx0XoOekhPabNqwdC8ibzG4YxmEHaOVJol8jhRKX/vXrJlDxT
ZFFC0ux6k3alpO7uFktejY7KY3vQEtqmKRzZHmvP+f/3nnPPPb9zX7/f9/u5
VycoyidEWUlJKWSm/zcybXe+gwH7GiaKsMGk2qlXnNK5ypWs/+NxTmfnQcuh
akzC14hFGtRXzqnCefVF1cz8bChPyN3kPBMb89hjA1bzwEBrx+EHVcz6RXDG
eDrBciZ+9E/TkwK/JaA93mx1upLZvwzcL97ac6sCk0WPv9q25WjBcN+lYVk5
c94qCNbiZnSUYeJxzSbvYzcbyoavmFSXMuevhWeua5KiSzBxbrQ5sXSeDrQ+
k36/upi5Txd8etWP/vQjJkFbxJsNS/WAn66XvkzK3K8PShM2fiFFmMRdPvCS
K1gPr1uNUy8UMvlsAAtu35PKAkwKFpw97zu8Ec7Igt9K85j8DOGQPP7o8VxM
Gg6X8SITjECSqDCwvsDkuwnGFpYXybIw6R1qGo9fZwLFO4LShJlM/qYQkNWV
XpyOyadSRZcoaDOsTTLaPpDG1GMG00P7jnxKwST1xQmjnhozsJvqqphIZOrb
AkfsrTLa4zFZpcWK3zPLHKTu0Z2nJEy95pD7/KHGilhMSkV5/XJvC4hQCVdK
OcLUbwH3ws549CBMbOMNLY8WWsJUt06RajSjhxXo32fVsaIwaa6/mab2zgoe
DWZyx8MZfazh/cPyqdpQTHwV/KEMsIH3HaH524MYvWxgZJynaAvAZGhDN2fN
OVvgLI27rePH6GcHUWsjmrd9iwkVGJxT8swOtPuuj/h7MXraw6XTpZNO7pjM
zlLIzU22wr3uxDYVF0bfrdD4oszzMmCS2XpCQI47wG1BW6imHaM3BzKWWamG
WmCiq8y64t7OgbTs19oZJoz+AO03/qjL3oiJH7vjUziLC6t7b3UgXcYPLuyv
u3vAjI1JobVm6eYbXDANUfulSZPxxxEUL79UWy3C5LWPv3gywBFOmuxMlMxh
/HKEkGqN4OJZmJhGXp3VoOoE6vb+0SXTiPbPCcx3VMnjPyCCk0crJZVOoAOX
lzu8QbSfPPBt6TGWvULkrtRsp6uYBwPqnyWOfyLaXx4U+MaFnu1GRO3XGLWF
n3nA4qZZ3mxHtN/OoFcv8yKNiIj6yPUuqTPsytnFlt5BtP/OcNE0YM7eWkSy
JtV2XxC6QMUKpcQ5lYjmwQX6eRsXJ0sR6V/sOT9w3AV8YuzXjVxCNB98MEkd
4BtkIqJvnFWnl8cHfnLLF7cURPPCh0lOYK+HBJEIQX/wCM8VNgjTIkxjEM2P
KxzTihVMRCLyc7CeRvWYK2TnCecXhCCaJwGsb2zcZuiPyHRseMOhTAGYRn1z
J9cH0XwJIB/XKOQCRJxya8Ls7N1A/LY22xAQzZsbsF59FntYIpI889koDbrB
WadrfT5GiObPHZ5KVR876iAiewi/Naa4w2i52sQKLUTz6A7y+cLRpwsQWfkm
YV/qFg8of3cn7KQyovn0AJadr/7yKYp8p96xcluvB5TFjsp++JuieRXC+ft/
rf86QJESXc2m5SeFUN/C7hE/pWh+hRC5NaPgYjtF5A7+B/sNRFB1HYxbf6do
nkWQIxmzG6ujiLXf1W+KZCKwVXl3bLqCovn2hPs1GiUfr1Ak9tDog72HPcHt
oGj/SDZF8+4JS1JuJD1IpUjTOTNsrOMFrDLnq/lxFM2/F2i3Vu0PpiiysDxG
70OzFzSs4xeywyn6PXjD4rrO5y2BFDEcfL7X38YbnJJ390Vsp+j34Q3Fc20c
VAQU+RerFhHn
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.0057},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, 3.3918681412172003`*^9, 
   3.3918682575572*^9, 3.391934834369*^9, {3.391934879289*^9, 
   3.3919349048310003`*^9}, 3.407903754488*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe1000", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, {3.3918681485332003`*^9, 3.3918681625252*^9}, 
   3.3918681962502003`*^9, {3.3918682692111998`*^9, 3.3918682740692*^9}, 
   3.3919348453199997`*^9, 3.407903757755*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd2nk8VP/3OHBtSpYsJYqs2SqRfb2KREiRZE1CWrUwY4/s7gyTJYZZzBgM
ilSi0JQKWfKmRUUlUlGSsrX//B4fc+Z7zT/zOI8793XP67zOfT1nU/ANcvJf
yMfH920RH9//f+Y+LilkBoT3sDjjgYPJ1TPvzCejp2UDv3DjCfOYdbbPE5YU
cY7KujiIhvwzz9+1KqxHpmju+GJk0nm1wUHdIs4mS5lPA/rLkaC+houq9tzX
r0Bw8edwm/2KOI9/NfXQ3MSRjQubZKMjueevRKL5JB2ls4s4K579M2rPWY3c
0HD2XlrBHW8NEsLcYe/YXMSxu2JI+fFUBumX5Rue6eeOL4f40BT/Cf0q4lg9
MDwnsVwBEY0wR7NXFc9dTxEpN3RZRNMq5vhucdHSKFVCWLKN13Xsi+eur4yM
v8jdGhBYzImhn35rYaOCiPDb2tkkFM/lo4qsKpb0+cos5tCE0jJcP6ghDxaY
7Qq/WzyXnwZSrY6sFnhbzKkPK7M8mbgBGS/1GHm4oGQu343I1OkbQzNKJZyX
75sm4tdrIp+KxGWGd5TM5b8ZuaYTJCtxsoTzu3S828FXC5FYyRzRzimZm482
IrDj6sf4+yUctP/chhdV2kjYBfHG5JmSufltQTbvEbn31YjNWbNaJN5vgQ7y
OImvxOQ+e26+Ogi65sahxiY2p9SB0je2WxcpiKRU6z1iz81fFyEG1UVYPWdz
jOI19CIK9BChJT2Jxu/Yc/XQR/zTj838HmdzWm7VEvm/6iPIi31LWxeUztXH
AEldN170RLyU4zpu/f4CYoj4lrXuPSZTOlcvQ2SP89HDqetKOe9Vn5rLphsh
pN+vPr6Yjf9XP2MkkxafVjIbh3gfymG/NkZWNv+9Yjwb/6+eJsh2ysdUhmwp
Z3H2+JiOpiky4/La4vns+P+rrylifmvjeNfaUk5m2zkbTpQZcj+14lfYmtK5
epsjEgKx36qkSjmKC0UYOzvMkZEl+1rsJUvn6o8gdjj+Z/wSpRw3mUe/j4pY
IOL/9t+KECmdWw8LpNer4YzSslJOgcGqUq0bFoibKC377D/23PpsRTIuyKsZ
TbA5H508Xaa8tiIHxFw1u96z59ZrK/K8O3pvTw+bs/lk4YL6JduQoJahlfXN
7Ln124YMfS9cefkGm4NPGbkce3kbctfjWFwJi7uelshZuZTa5Atszm2WtvsO
F0tk0/ISh5VR3PW1RP5dt5EZD2Bz+O+E8gv/sURGUk63UXZx19sKuf8zkX+3
Dpvj0Mu52s2yQgY93kvekeCuvxVyIXl3R+RoCSd7iv9Arv12ZLOHGOXBrZK5
ftiODAl07BnyK+H0ie0S9J7Yjsh2q6pcK+DeL9YI61RMQKV/MUd5U3aNEsUa
UVh3xMF4R/Fcv1gj4WL8txZuKeYcs+k7NGy5A0kRM23wVuDeXzuQZjcR1Fei
mHPtkJJo5acdyHvCQj3hpcVz/WSD9PER/O/N3t8/o4/WB2faIBbqr2tlxovm
+ssGea5a8LD9fRFnW15VoLGJLWKwpvtUTl/RXL/ZInIbKZo7u4s4KbObDd+g
LWLf0KxX28zdX3YifCrEiZr6Ik7Xf8jdB6k7kR8/TbIUqorm+nEnEvGcZPaI
VcSR/px4At1ih0goUlVzc4rm+tMOcdZRKfZIKeL4LH0kveelHXLxRsTFH2FF
c/1qj4yH9TI8jhRx2IqrmiTP2yM2kd2l4a7c/cwe+dJ9V/CwVRFnzMzzTJ+6
A7Ky7sH0bq2iuX52QJjivuuJa4s4Bm6F65hdDsi2O9I7LvAXzfX3LuTttoR7
tcuLONHBI62Hw3YhBTo3FpnO7rf/6/ddSKv9uptvG4s4Tena+E0KjojSATG8
uXrxXP87InroortvacUc4fJQpe8tjohPo9buYYeSufthN+I3uP3v9tl+0Bh8
c9jTcDfSMP1ItKyLu1/tRqyfqj5K+FjC4XpC+Sm34/96Yj5Maq29w/Okj3Z+
Qq6MBZ4YXn0VdSmTBZ5YmdENPaJY4MnJvlNr1Q+zwBP+CWtziT0s8KT/cWmP
pAkLPDFKohlrr2eBJ6nTyk8PrGCBJ4umbTcX/CgETyKfPxoZGywET7r2nLxn
/6gQPJEra0u/XlsInrS0y1muLywETxY7cMYoxELwZGaC0iodWgiefAiZ3pzn
WwiemMSeKJVxKARPXgzdm6QbFIIn8iYN4kqKheBJVF6EbZFQIXhSuX2xuco0
EzzxCmQtLH7LBE8eC6hprW9ngidHp8UWF91ggif0RpdEVQYTPKEahNVWokzw
JGZ/2n9bcUzw5FeMVtygDxM8GXl314dixwRPho922eH0meDJ1SenxaIVmOBJ
YB5T+74QEzwJTyv/6jXDAE+0fsq/DXjHAE+qfGVsF3UxwJO+A5ImfrcZ4Mmn
Rr99nZcY4Mk1KfU3FRQGeCLZ8SygOo0BngzonKZsiGeAJ5/xBrSj5xjgyXDY
xfaEOAZ4Eh+1XXjfBQZ4EkFdIYwUM8CTE/Hx4oEcBngSpkBQ0utlgCdfpT8o
DszOj+uJ7HOhXSulmODJ6s9vfhYaMsETAX2v6/HuTPDkw8bBa7eimOAJ61+5
zz4mEzz5gmj2nGlhgieHv1nb6X9lgieFtm++PJYuBE9MRX+kpG8vBE+kv5if
uXe2EDwpryhxGWEVgidNf961V74oBE/KA64JiEiwwJNrpSGxSU4s8CR9QXAW
K48Fntx6PsZn+JUFnuzNt7x83bsIPMkW+CuIm93vuZ6YdmE9EQrCeiI4zxP/
eZ4YzvPEZ54nL+d5QpnnyW8FrCcSKlhPtkpjPZHdgPXEtB7riawi1pNL37Ce
LJznCf88T+w2YD1Jr8Z6ojvPE1IE1pOp/7Ce/L2F9eSQCNaTQg7Wk1gWju/9
OAs8sb678bnYaxZ4IlPn6JzQxgJP+pTaT6TfYoEnxVuL5DzLWeDJ+0HF7h9U
FngycHsIdzCDBZ5Qmsa3RiezwJNrJXc4OjEs8GQ6eqy9V4cOngS+eaI8AvGE
+ZJ0LbtVunTw5G3tM4qXLh08qRs3q7k3G3M9Wbe4KtJGjw6eVKc7rRmdjbme
iA+uFL2mTwdPfLseGFMM6OAJtXF3f5khHTyhJiG33xrRwZN3ya5rrEzo4Mk/
KSuDEoQOnhx+uLz2iiUdPPmkOxxkYkMHT/S/edNCHejgSb5Z92rUmQ6eGDsM
92e508GTztb7hrd86eDJZie3eMXjdPDEr+P6vhkcHTxhbTVrCYyjgyfpkmsl
mRfo4EmmpX5cF4MOnlxc9jZT/jodPNHQix+vaqGDJ5axomG0N3TwZH+khej3
GTp4EvKqqd91eQF4suLPdhU/6QLwxDewdTpDvQA8OeH+5MsT4wLwZLhR/uVq
hwLwZK3P+dIdPgXgCbEO/3BXcAF40jFjdnlVSgF4IikUKh9LKwBP0m4fSTx5
vQA8OVJpKXyptQA8GanXWfuxvwA8Kaw4XEWYKgBPBjtbN55azvOk3n2BnNsa
nieKRaGnnZR4nmjI3deiKfM8oZKSW7/I8zxpNj2O27SW58lHt7KNC1bxPOkr
XBquu4Lnyce6yYvrZ6/P9eSTb1jB3yUM8GRLjxq5cyEDPLl5OUEsn48BnhS8
JLZ4/isAT0IMu92FZ2OuJ+6mRr6s2ZjrCWpQfE16AQM8+XtBdHXAIgZ48uu/
HZVx/AzwpLuuQvvkbH5cT7JWyy9Ums2f60mKwFuEsZIBnhDbvrQNz9aP6wmf
sNiufwoM8KR90sb0vToDPCnWXPmBtYUBniydcSFYmjLAE7dTnmfarRngiY2c
q5C9EwM8uRqbrt7lzQBPGK/atU4cZ4An6xVPHNGNYIAnAYqvnM1RBngSH6wl
UUxhgCcOJ+KHUysZ4InR2agW0fsM8CRzg/WUz0sGeNLpz3hQ9o0BnsyMbPJU
FmaCJ3Z8QxGCGkzwJH5HiHGxLRM8OT81c87yOBM82ZnpLWiSwQRPDjt5Znyu
Y4In0k/VPBuGmeBJxqJNERIyheCJ653llQ7OheBJnGW1a016IXhSvq7ZLayr
EDy5tv7uH1SKBZ6c11I1u+rHAk8kl3M6UqpZ4MmPQqwnQXewnmRVYT2RneeJ
pgXWk+Z5nnysx3qiOc+TPfM88QrHekJpwXpSHYz15EMN1hOpUawnyL0rGE++
x2I9qeBgPZHIx3qCZmE92dhkjvUkEevJo5jkM4uNeZ6IZNsgiUY8T0YDuq1/
GPI8iSMh4YaGPE+e9D7t1DTgeUK8czLmoR7Pk6M/rQgTOjxPHKTY73K1eZ6Y
5STcyNPkeRKVLWbYo8HzJPGMhbuCCs8TvkM1NqbyPE9sP79275LieeLwXvCY
xwqeJ48j1F5OLOR5Eq91ffjmOA08uamy13vfUxp4QpiJHjp+icb7fCL8iy50
hQaehGYrLLO/SgNP0up2mshdo4End02Qv8Gzx7meKJM8Ed3Z87me7HyRH2c0
Oz7XE/UydNneYhp4ohp02XgbjQae6KWdfXEpkwae5Jn/yZJLpIEnVjW9nN/B
NPBkcvu+iYADNPBEHXfgw0orGnjioYA7802eBp6IvsiJt/1GBU8SX3/Lyqii
gicxoxdq/Q5RwZMOuekjj/dTwZMgOU/nDReo4Eny1jcON69SwZP8SaLQ3odU
8ER8OLDoxgsqeILTuUVSek8FT94Yegg+HaOCJ+KvNk8nTFPBkxwztb+X/lDB
Ey+hjfrkhTTwRCxBdnssPw08Oa6rMIEK0MCTtyv4nJ4K0sATguizkdPCNPBk
Jcmp/5QIDTzJKjBzejUbcz0x3EJy5YjQwJMPWykVMrMx15MFp1eY/hCi8b7v
qvtz2HX2elxPvBe89DUUoIEnb9cvcKPM5sv15HiGA/n8Ihp4knf+SdXwPyp4
MjY8Fd/5iwqeiGha7deerQ/XE5sd218Lzq4n15P2dQMmHp+p4Enbmn6BtbP1
5nryuPOmk/UbKnjyQvIroaeHCp7slH1woaWTCp6wwnRI4s1U8IQo+vDX5QYq
eFLnPoTLuEYFT+74aRpbVFPBExLO2k+vjgqe7GY8sM27QwVPlmYpujo+oIIn
RkT3hC2z/cP1xO4Abrl8OxU8CUnn8//eQQVPWNIJTcmPqDxPwvc8vj17nOtJ
RvUhSmgbFTyJWC7Nps/Oh+sJ7tiHJ+sbqeDJupcrhvhn8+V60q+/P9v2KhU8
+U8nwoKPTQVPLnnF6dlSqODJ+7UnlzqmU8ETWfkgbdtYKngy1V9yOuoMFTxJ
0TYlfVuQD54EBBCb0uXywROXaCNmplk+eHLj/lD0jEc+eJKSebKuNjwfPPGO
4ZAfkfPBk0NHY+V1b+aDJze0Jn4MPM8HTxa1bnV8MpMPngSM3qfzSVPAk5vO
zzIPGFHAkxXyK9o+uFHAE9uOhOK0cAp4oj5VIWqTTwFPsjtPWvPXU8CTtxlL
2Df7KOCJ0EAwdfcfCnhyvjaXUSNLBU/MMkkZL8yo4MnuklxcgRcVPJH7ov17
KpIKnkwpxMm15VPBE0fPt7nit6jgCZv/yqbuHip40rrLWVljkgqe/OKczDoh
TgNPvMOi7u/TooEnHldddxTv5nmS1Ef1yg7jefJdHutJ9p2fGE/ST2M9WV6G
9aTDCOvJ5iVYTzIqsJ5M+mM9+eyP9eRQCtaTL8JYT47SsJ606WM9aZHCesJZ
jfVEqAvryaHHWE8+fcR6Inef/U9Ql+fJsTyjFTfleJ6UTDWEOUryPNnXP/R6
VIzniecC5fWWojxPxHBvq0xEeZ7gcYe22IjxPJGcHDghJcHzZMu4jmHUKp4n
VWXICzcpKniCC3rpQVlLBU/GJrsQo9n8uJ48LFOeVFOigid5QTUuAapU8OT9
q4yroxuo4MnhbaZG9VpU8ERDtT6tU48Knuz6dxldb0IFTxYmFQrVW1DBk/Hn
bY9I1lTwRP55kTPDngqe/M03bBlxooInWYlHRo+4UXmeuLD/rfHheaJjlEP5
EcDzxHo4v4jvJM+Tv0bH12mE8Dy5YPmUPyiS50nQm3Wbm+N4nhw5WMavjvI8
2efd4JeSwfPkrsaUXS+Z50np/qrSFQyeJ+dnnkqsYvM8kRiTS+mp4HlC9sV6
YnIW68kmGtaTRySsJyrzPKlzw3oyHI/1REMS68kbHNaTz1exngjP82QgAOvJ
snmeVOtiPVFah/WkwBPrif48T5rXYD3JeY31ZI12Y9L/9WSV2FD53Xd5vN/j
yffFFrXkgSdNn6O/15fngScbWYrDk+l54ImFJH1xdXAeePInsGd4gXseeLJ4
o8aHd0geePKV2SByWCUPPJHJq9ydIZwHnhgq2lw8PUkGT9qbtF6LviaDJ7SA
creoZjJ4YrmEkfqgigyedHnb+f6gkMGTR3+lfTRSyLzvu2r2XDmGI4MnLSfv
2nb7kcETYkWjQMheMnhSdpDRcXw7GTyxagxOfmJABk+uHw3f+3ADGTzhH9U8
d1SBDJ7on76V/kKKDJ4I6H7aYSxOBk+8X4wVXBUmgycKz441HRUkgyexAYEr
iYJk8KRq4Xo5axEyeIIb+vHovgQZPLnXSKQZy5DBk2OVPSJ9qmTwxCvw+LG3
+mTw5OD9/EXJtmTwpEjXRGilDxk8GUvgwz8OJ4MntY8PGSjmkcETY0rprVO3
yeCJk9PGTw4fyeDJDZafEV4qDzyJ1uJL/u6YB540SKoaW5LywJPfAlON9b15
4EmNdrepo34+7/MJvlpQryQfPAmNvMLcZ0IBTx7/+ZR9fJgCnvQ0Yj2ZycB6
wjeK9STjNdYTyrgSxpPWM1hPnpzCeuL6BevJumGsJwV0rCfGx7CenB3HeuIy
zxPRI1hPOuZ5krYV68k/ZawnmvM8sUvEetL/DOuJShfWk895WE8WJ2A9sdmL
9WS7IdYT/nmeTBhgPVlmgfXErA/ricYBrCckT6wnLmpYTxJdsZ74TGM9URjF
etK+p6jmBpvnybYnaQGiVJ4npXX1k5kknif3KOMndeN4nvh9DdEfDOZ5Qnu3
+E66P88TdFh7i6oLz5P1FaTvmZY8T27b+axt0OJ5Ypl4tCFBhueJSfz4knZ+
nid3DhZIBo5RwJOkbdIkjWcU8GTJTodLL29RwJMFemX3dKgU8IRwO1BgIJIC
nghJ7TOKnn3/zvXkWtbR3qQtFPBk9TCxzGspBTzRCf7TkCWWBp7EL2op1NFL
A0/WVJSoK7mlgSevtdU5+6LSwJNKnGbVHUYaeFLlLyjg1JQGnoy2DwX+HEkD
TxSSlYdKVqSDJ4lqAy+tddPBE5dvBvfu7k8HTwalvRctiEoHT9LOP745UpAO
nlxRoCX73k8HT3L/yXnZfkgHT8LO/M27vZgEnrQOfz17fBUJPCGvXDVOXk8C
T34JufzU0iOBJxHhQgRpKxJ4gir6UY2cSOBJwvVygZADJPDkXkNU1OVjJPBE
6veWwEYcCTz5ZVk3Tooh8TwRk5/4nkwCT/r+3p26l04CT2pzyao9WSTwpO2c
lf2CXBJ4cm+dAUOCTAJPwpuu5PblkMATRO2In+rs+VxPVOy2bKgjksAT+eza
erd4EnjiujUusgFPAk9ODjeJXjxMAk++vuAIxTmTwBNF4W3ygiYk8OSEYls3
QZYEnvSa/VWxmkgHT1acOJvdSksHT+weFufd00sHT/ZbbpnMqEgDT4QCjN2f
DBLBk+rKp5/G3hHAk7+76X9ybhLAk98lS9W8UAJ4IijyX1mkOwE88fxBbwxV
JYAnP4kHi82/o+BJ6fHeaRsOCp5cdnNakk9EwZO4ul2KgT4oeNLnVEs7ZYSC
J+K2Pr2R0ih4ki/GsNnPh4In44GRI9qjqeBJ8bDcbv43qeCJ9NHlaf1PUsET
udOCBd87UsGT2rIWKvVhKniC+/VQzbc5FTxxVh99PtCUCp4seZJr83z2ONeT
0h/KeKHWVPDkZ2195L7Z8bmeiA6b7c3pSgVPjtwwDa95lgqeaHUGaxT1pYIn
OdFRYs6DqeBJXgfqXDOSCp6YjV/oav2WCp6gOvspyb9SwZM24dqU0cUoeFI3
6D84LYKCJwy2oHrJbD25nnw/tu7tL2UUPPHYtSpkWgsFT/zORUtSzFDw5LyJ
TPnnnSh4kmlXdPvzfhQ8cTZWDis4jIInGfZbyEJ4FDzBnzh3Wj8JBU9m3lkO
K+Wi4AmO3/VcbykKnpS+bnT0q0fBE5fbjWubOlHwpFFJe6/AOxQ86cgJVzH4
gYIn6csQgtsKAnjiWv3GK0KFAJ5QH9sGss0J4Em63uHEUVcCePKYfeP2/jME
8OTp5nL/H0QCeKJ3KGt7fxkBPNHHT7fLPSSAJ6jPKav2jwTwRC7fX/i3ABE8
UeSIf2reSARP7u+85Gq3hwieSJ3FemIhErTY6QsRPBn6smAtro0Inuw7b9ez
vJQInkS/Zu+XTiKCJ27WV9aV+RPBEwWi+boHVkTw5Fe039PTykTw5DG/h3fN
YiJ4otz/OJYyRABPOD6jLarNBPBEL2ss7UApATyhH7SX2EkggCfKB6UIo0EE
8OR3cLDR7r0E8IQ5sSs81IgAnkwwxQePyxHAkxNfBvfp8hPAE2TLVuVnoyh4
EnNNQMX9GQqe+AubjbRwUPDE02FN/4YyFDwxc36RTsxGwZN+pfevf8Si4Ekz
G/WLDkLBk43Tx59oeKPgyVn6xkSxXSh4Uh1Sp2yDoODJugqTrI/aKHgiv8xF
WVwFBU+0/jA3f1qLgicspSPuhRIoeIJeqODghFHw5FP8trSrAih4UvN8w7e6
ZSh4cpre8mSNIAqeqHk7+qBiKHhSqkqxlJFFwZO+mjzjw5tR8OSOUOVlfjsU
PEFWzXy/HoyCJ3xHf6sO3EDBE7vc+jXt+gTwxNW0G+NJoF8expP0WKwnLcOd
GE98O7CefNTCeiJlj/XEWRnriVct1hOL3VhP4oywniy8W4DxJPIg1pPrT7Ge
2BzCetJ0HOtJbwnWk+/fsZ5cksV6svMO1pOxL1hPrpOwnvQPYT3JYGE9kWjH
enI5HOtJ4l2sJ71fsZ582oD1pEUA60nKK6wnNXSsJ0t8sZ747cR6UhmM9eTJ
ZqwnzWZYT1K0sJ6o78B6InQU68nIINaTpCVYT9RfYT1xuoX1hF8B60lgOtaT
xj/mWE+uYz1J+A/ria4u1pPQIqwnjzdgPVGd50npMawnfd5YT07mYj2pLcF6
UmuD9YRZYKYucwUPnjQvL1W4XIUHT6xMBo773MCDJ4NVltoGt/HgSbqsvIfO
Qzx4ounkTnftwYMnvlnLzpV8xIMnTu229qp/8ODJINtSq29lKHjyqXfvlvbN
oeCJ0lC5xV+HUPDkzQln4/CgUPBk+FnbT5usUPDk67T/4eD6UPBEehofvfRj
KHjyifMoUGR1GHjSuWwf8aJtGHhyOiq6pOJcGHgyuO1if8DNMPCEGHD6839T
YeDJvY4P6nyG4eAJm53bLBAVDp64B+aMLm4KB0+yDFifl0tEgCcPWlrOGvhF
gCeOXgod7JsR4Emp5i/FGIlI8MQ5btujt6cjwZNTncmVk08iwZMhienMD6ZR
4AnbxaXkQ2kUeML3EZnQkIkGT7aMGX//lBkNnvwYl1Y7JnYOPDmoTWwbyzoH
nogJxpj5rYgBT5r/nRwvco0BT/6qqxUfL4wBTz5765z5/C0GPDGaOVvrZR0L
nqRFDIT8psaCJ8cm8Cj/z1jwpLbl25Za9/PgieQ3C53td86DJw5rXU+0a8SB
Jz1at4e25sWBJ+eV1nbaisSDJ4mrcsT+JcSDJ5nR4j3F/+LBk8ee9duPhSaA
J8u1Wy/5fU4AT2gT+OydrongibnpYvbN6kTwRF9fz8+MPwk88fw9KuZumwSe
yCNvrrTFJIEnB+0YAlcrksATR4OFd0SeJoEn4svL8zImk8ATVkiKeo5YMniy
O33il7pGMniCpi3pW2uRDJ4MbuxuE9mbDJ78VyrlGhuQDJ44DhO39eCTwROf
m0ErfJKTwZMO/O8nHrnJ4MnrIxKv/pYkgyfJYd77g2uSwZOHV44E9jclgyfE
p/KXDz5LBk+63+TixN8ngyd3279eFZhKBk++FxSVevCngCdCMwsurFmdAp4k
xksvdVVLAU9qrLaGyBungCfDln6HEuxTwBMVRI+TeSAFPHm4ELfG7WwKeKK2
vWdgICkFPKkNT8g2p6aAJ31Uta9h11LAk+M7huQLW1PAE1lK11TLQAp4QkNt
V/76lQKeiGhTlXdKpoInzr1syRbtVPBEkb3BO3lXKnhikz1lVnA8FTwp60mU
VSWkgidSuwxH9S+ngifFT9dQP3emgidxabnlgROp4EmOaUN35xoUPHFYtf6V
nSUKnkQNtlYInUTBE8feExm2+Sh4ohbxeWBbGwqeGMfe0bb6i4In2mjtmhJd
AnhygIr1pFRg4WWRKzxPOjvP6L2v5HkSV7D8FrOS50l5Yt5Gq0qeJ+qr94e1
VvA8IWz6mahXwfNEfqJFP+Eyz5Od5Jt+Ny/hwZMPvfkfusrx4Mmh1RYXHpXh
wZOyDwzNylI8ePJ6h2zyWTYePGl7zTq4tgQPnji9XBpRXIQHT6xJSqSVLDx4
wjdp6ObPxIMnH9s2obkFePBE16K35zIND54Qug59YVHw4EnwWHxEVB4ePIlN
Glc3yMWDJ5+Ey5ld2XjwpGS/L9E+Ew+eeGV3k0pIePBELnmD8wARD578fH8i
/HcqHjwxnum+NJmEB0/CTfQvdMTjwRPWzrOdcbF48CTvzX+iUtF43u8ni47y
pYbjwZN7gQS7Fzg8eDLzVIG55Cye9/+u+yI1IkF48OTxYKbFxFE8ePLtv/KZ
6gA8ePLtUQDV2RcPngxPWI63e+HBE3OJmDoFNzx4EiR3rGXPXjx4It97ddjT
EQ+e5CeUTm3biQdP7j1Nal+0HQ+ePOgv20VH8OBJnU17wCpjPHhyYaX+kgBd
PHhCvPhR/oImHjzpuNFcc1END56sfXnzEU4RD56cqrl9WlsGD55s9ue/3rQK
D56Mv/1bqb8CD56c13RPil2GB0/8K0UPlSzAgydLTTzPsn/iwBOd/RVj8d9x
4IkCQpc0+4wDT1wfvtjU9Q4Hngws/RO79RUOPKG5xgSkPcWBJyIWRL3aDhx4
onSry5HzAAeeeOR4yLAacOAJebPXssPVOPDkkhRf0rLLOPCkz1JNLIWFA0+c
Qk3WD+fjwBNNdMBaPRMHnlinPPxrm4oDT6bMvV/axeLAE1V74rHNoTjwJHJ1
tM3kSRx4cpFiL0jzx4EnKg8e7NHwxIEnm4PWNeQ54cATKr5qfMwGB564fKm+
qIHgwBORd39c7PRw4Enatiu9Thtw4Mlz1pJnWxVw4MlIOf+k1GoceDImaD/y
XAgHnpR/bQg8vxAHnogYuypLzoSAJ2XRI11ZoyHgScb9IZV/AyHgya2HMi9c
noeAJydNL9DIHSHgScVVZFNbYwh4khP7yfhTTQh4YrToa+TPSyHgyf0qUfYP
Rgh4YnvG4dTwxRDwRDz1RnIrGgKeiJRZFVJjQsAT+baKU4dCQsCT+vXWBTJH
Q8ATsZrONw+9Q8CTbSkHeo85h4AnJQKGZotsQjj/D/xew14=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.04},
  PlotRange->{{0., 0.001}, {-0.0490635010491981, -0.005195629742504349}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.3918681630982*^9, 3.3918682747232*^9, {3.3919348380480003`*^9, 
   3.391934845925*^9}, {3.391934881611*^9, 3.391934904975*^9}, 
   3.407903821824*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<incrs.eps\>\"", ",", 
   GraphicsBox[{{}, 
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd23k4VH3YB3AUhRLKVkpky65sESdLlmRpkYhCWtAjUnNsZZmx74xdZo59
2hXtGqmkqJ5UZE9KlBIhecg77/Wa2/vjH9f3GnPO+d33Pecz1zmHtMfJ3Ue4
ODg4RhdxcPzvb/bPJemMo8GtJcyR432x1ZOfjGwvTuE3frHzmNFa66o4OcFS
pvdaBxvBM7NG5Qeny7pUSudeX4wFEPtjBq1Kmaqmkt8+6vBhIhKSDxyPsf9+
BSb5vn2RXlQp881/9a2FTsKY3UxQcn4x+/2rMKWRe2cz60qZK1pmtzRli2G5
1yM9DT6yt7caWxR/fqqUq4xpfU2v4M87SSx4WeXS0Q1lc9uXwq5F8jCMzcuY
Zk/0wlbySWO9fClLHniVze1PBvM+Ztmfm1zG9NjkoKHE2IAln/vvgEh12dz+
ZbFHbll0clcZM5zm37vNUh5jvDwUuHdp+dzxKGCZHMb+sjrlzMJlyemOXxQx
sQvvV3ccK587PiXsTb3f9sHCcub9oAumvtHKGC8/3tbZVT53vCqYUd0a0kql
CmZ7f/0YRU4Nu+RheouSXjF3/OoYv5Db32oxBnOaMdJs46GB6d78PJOqwJhb
jyb22O4vT60cg5nwIUy5rVIT4yg92Heblf9vfZuwu8Hrp7zlGczVYgIUT87N
2NQ36w1RrPf/33o3Y76XLr/vV2QwGTYFncP2WlhjeWZyuBJjbv1a2Kq1nF+t
VBjMLRQl7RC6NkZ3LFtqpMaYq4cOpuy77YOTBoPZcPd2Es9PHSz1r9Dp/E2M
ufroYt2vt3hzajOYjiPm/WmYHia7kfkqXpcxVy897KTp4nEdfQazX+Gd0dqU
LVjjhRuO3IaMufrpY/VEMHUcYzDPHDycXdGtj4UonHFdYsqYq6cB5hFFCdA3
ZzAXZ44Mb1bbiiX8F0EkWzHm6rsVu7Kx/PYiGwYzozHMknnWEJOJqUvKtWfM
1dsI210/OmG3l8GU4RIgdrwwwuJD7j6T38+Yqz+GRZ2xblvrwmA6Sb6c9hbY
hlkfHB3TcmP3Yxv28ndqv48ng0nXFWFo3NyG3RaQ8K87zu6PMXavaNpW7x8G
c2C3i8OEqzF2Yn2cxgt/dr+MscbjsnfDSQymum8x531uE2wE94jcHcLunwl2
POrrCpNwBhOP+3o54rIJ1jgk3Wobxe6nKfYxIl03MJ7BfFCi6WzhYIrt+ssR
VJPC7q8pZjJA7uFLYzB5agN5ls+YYlluRWYrKex+m2FTpirCGcEMpk0H83pz
iRkmEsNTsvcUu/9m2MuZj5Gl3gxm5gTPoZyd27HR0lW9GofZ87AdOyZxwOPJ
AQazU8iW/+DYdmySt0HVZC97PsyxQ9o9wik7GUxZ1cxbGwrMsReD6XdzzNjz
Yo4lRU9SbbcymD6WnYcHTS2wPO6n+cRm9vxYYOueaEeSWfN44/AGwavfLFjz
tkaqfz17niyxDWvTx++KMphT57zvn86wxMKKSY2j/Oz5ssTOJXmZnOVgME3y
Ko/rG1hh2ZOYt+VYxdy8WWEn2wzMtn2pYMaxTjYcfVZYcdxeVdu2irn524Gl
qm/fsP95BfP1v9jDJ/E7MP9t4W+wuxVz87gDM5uMPdBbUcGUGIr+J2GTNTb1
MClTKKtibj6tsWlG1c38iAqm25KXErvarbGMTRPdhj4Vc/O6E1M/HTJevLuC
WSEjUi8auRP7kfO17JBuxdz87sTekraad4hXMIcNXU51brTB3K4kfTCZKJ+b
ZxtsUe2Wqv0vy5m6TsXril7bYB/vMU+K08rn5tsW+9ly50OTZznz3Omvz48F
2WKfVUaDp0TL5+bdFoviuaubnlHGrE/RxFWl7bDHdTIZCoLs86cdxthYr3NV
poy5/GLghl8Ndljq8ZMBjtplc58He6xMTVlqnWUZU6mv55iLnj3WnW/DxXGg
bO7zYY/Rvi63n/ynjMn2pGBKyuL/e/LCJ+3kP/fmPfkQ6WAQTisBT0Km72mU
kUvAE9UIIrX5WAl4Em67WmPSugQ84dTp2sqrUQKeMO+PTE6sLAFPbMRTvSp/
F4Mn32Wqfsl3FIMnd5VudZs+KAZPMoZeVo7Qi8GT8dD2A6LkYvBk155O/gzP
YvCkK0Y7zWR7MXhyarhidkK2GDwxSeKWJi0qBk90t7Z2BHwoAk94X3ztj71X
BJ50P39sKkMtAk+mRVYquXsVgScJJakpb7cUgSeG9MRLD7iKwBOf899ljtcQ
4In5JefMU9sJ8KSDr66dzE2AJ47j0asjFhPgSURgute7RQR4skLAY5cXK7M9
ibywz0mdldmeaN512CrFymxPeo6uyNrMymxPHjxyvHacldmeGE0+77jHymxP
fg/dWqHM2j/bk/0lJ69VsTLbk2V79XwcWcfL9iTxx891wjwEeJLj5N3Ux8ps
T56uz0hoXEKAJx+l7pMblhLgSUXf589tvAR4ErjYe+AvHwGeaF9OeaSzjABP
nvrVXglfToAnpSuUuzsECPDERvpquIUgAZ70m/ypqRMiwJN7I/erdq4kwBOB
XzOBn1YR4In+4EHhOFECPOEYOhG8RZwAT6JovXljEgR4Yifcan1nDQGe1E8N
7IpeS4An0hnGLs5SBHhy1jaVS0uaAE/ihgbrhDYQ4Em0dObsiCwBntQH1083
yxPgSaTanu7rigR4snPPkdIUJQI8qZc1VjumQoAnL49pqOmqEeDJhqRKzRl1
AjzxkhLOv6lJgCdTX8oIt80EeJKm+2nXpBYBnhTEVCQH6xDgifiH9as+6RLg
iWlxbajmFgI8MUnstjykT4AnsurZg14GBHgyElL0ymYrAZ5MPKw7t8SQAE9u
2bmUZRgS4ImbYCw2zMpsT5IPJFwTMyLAk38P8Y7zsTLbE7cI/2dPDQnwpKLH
sNWGldmeqJpld5/fSoAnJnv9lltSCfAkXH7J6cIWAjx584Ja9F24CDw5cP2z
4VHbIvDkea/B6GB8EXhC/6O7O+dZEXiyflnNUQ/+YvDErkbDx3ZXMXhSLW7h
fLOgGDz5u5R79ZXhYvDkcuviP6M2JeDJt5BxlcW1JeCJ3e0/D0ZY3+/Znljf
QT1JVUQ92eCIenJLFfVkOgb1JG8A9eT3ueGmjs008OTDFwGFr5DHjEIErSxE
tGjgSWsEt6erFg08OVVe317HymxPAkNqtcy1aeCJ779cagOszPakJlyilqFD
A0+iJJI0E3Vp4AkPRlJJ06OBJ56KKT13t9DAk/uv/6otM6CBJyf6VrHOOjTw
hLa0zJEwpYEnh4b2frxtSQNPlOO/qI3b0sCTpzTVmvf7aOBJgBDHns3uNPBE
0NZDK+QkDTx5uGyNaCyFBp48qhvS/1BKA08wR/5wrU4aeELRF/P4IUYHT7jU
tv/wcaCDJ3XfJ6n0Bjp4smoJ6gk+inrC6496smwZ6onLAk8a76Ce8C3wZKIO
9WT8N+pJ6lfUE8Vi1JOZXQs8+YZ60r4f9WRGCvVkxTrUk75e1JMqLtSThxdQ
TwIWePJ2OeoJ5zrUk4cLPBH7gXri/RP1RKcf9eTkV9ST3YWoJ+VCqCdv/qCe
JKehnojYoJ50fkU9GZNCPdkYiHqitcCTZ/aoJyQZ1JPyBZ6IJqKefFiLesLX
j3oyo4V6ciUa9eRzD+rJXgL1ZDYW9eS3KupJUjDqCT8T9aTdFvXk53LUkwwn
1JNoV9STi+GoJ9sXeGKyDfXkXYhs2x2DeU/2uh4XKtWf90SQ01XJk7U+ticp
QWtXzegS4IlF/tEhEqs+bE9qMjWb2rQI8MQhVidajVVftic1G2VdzmkS4IlX
u2tlM6s/bE9Uer491FIjwJNMW4HDl1n9ZXtySZ73tZkyAZ7sbLuSwMWaB7Yn
ubPOxt8VCfDko/qdej5WZnuSLfJT3E2BAE+OO8UcG2HNG9sTFbHwDXXyBHhi
Yn9K6B0rsz1xDUY9ecpAPSF1WCKe3D6FevLjHOoJxR315P0t1JOnZ1BPXPlQ
T+oNUE+6l6GeqM7MIJ5wPJs+1bJl3pMszU/PGvXmPXGii/qH6c57cqf+Vkea
9rwnRnmnb2VvmvdENSZf+rnqvCfCZ65IS8vNexKnecr/DP+8J7N/RL4cF5z3
5OA/GrYxcvOecDXz6fSw6sn2xM00L0XRkAaejGWWr61i+cf2xPG+1/VPljTw
5EjzA0FvGxp4kpf+2LtgFw08yal/sf6iAw08ud5pd6XSiQaePNpbbvTQlQae
5Jkwdn92p4EnQvHy8vJHaeCJAtfw3zhvGnhyucP1uwjLU7YnAms3bXsZQANP
yldpv7gZSANPWr9krn9zlgae+I79KJAn08CTzpU1aVWxNPDE0OOedXgyDTxp
njKTTqLSwJPCQ2Kh3Xk08ES137EXJ2jgiYBkwKRLBQ08ub7SMC3tKg08EdA6
z5C4RQNPQp/8OfXnAQ08kT8X76j9lAaerOKonH39igaeyCb6Ob59TwNPLv0V
pRp/pIEndxYp60sN0cATGvXShoAJGnhSd+vAI4KDDp64O1uds+ahgydWHwvM
9JfRwRMN3urX/sJ08ER9deG6CXE6eHJElHG0UYoOnsT02apMyNPBkyEvN6MQ
NTp4cnxDRM0hHTp4slloQJphRAdP6uxcjV0t6OCJxMUjDpH2dPAkviGWU8qZ
Dp6EWmQ66XvSwRPHU7VfOnzp4MmiX2eu8wfTwZNjKgzj5ig6eKK0FC/WS6eD
J9o/R09a0ujgyXou4Sb+y3TwpCil2yfpHh08eaobTH3/nA6e3LwuIPWnnQ6e
BK28d+6/b3TwpFGup2lohg6eLDIR7G0XnPdk8Rg19K3svCc+B59QB7fMe6Ie
hHpy2wX1ZHzWBfEkPBD15Esu6kk4FfVkNBr1hKmIevKyDfXkQTfqiYEN6knp
Ak/IragnVX9RT7aqoJ7wLfCk3wH1JEYU9STODvUkTnNr6ihnPniSZaA1Va2c
D57YaLRvHnfIB09Up4pCasPzwZN4na1KGy/lgydf2gt/Gr/PB0/4uLjlpbgL
wJPQE52yrZsKwJPfj3XuRboXgCfldkSVYVoBeHLZ90iUQl0BeELC42Q8xwrA
k9lnEuJrFc+DJ5xqQTORrufBE8sT1NRX1PPgyf19V3ZbvTwPnkz6SPyw5isE
T5Z+3+J2xKoQPHH9ONgxllgInrzKShc9+aEQPCn6iXqivBX1hO8l6kmXNupJ
XjzqSVsp6sm/z1FPFFJQTzivop4MtaCe7LVCPZnahnqCR6OeiIz/QDxpbkE9
cVmGeqIriHoS/h715E0X6kmCMOqJ0gJPqhd4ImSDepL/CPXkxnLUk3oB1BMz
TdSTgTrUE0l/1BPL8WuIJ85xqCcF46gnbZNKiCc+Magn2dWoJwoLPAnsQj2x
40Y9aZNAPXEXQT1RW+BJ4lHUE9UFnjwURD1ptEY90S9HPcl9hHoiuMCTt76o
J/EjqCdrlVFPpqdJiCeTQ6gnnAs8WbnAk7NaqCcRV1FPzqxAPVFa4En7NtST
lUOoJ1KuqCePWnwTViyb92QttnOUOUkHTy78a6u98QcdPNHd7FO49wsdPCkr
o5EufKSDJ0O+crH/9NDBk8tN25S0u+jgSelgwt/aDjp4wll7IbSftT62J+9v
0vli2+ngyURci34qK7M9WTxlJDDMymxP1v0KtchhbY/tSem4xf7ITjp4oiZ2
40Ipa/9sT/w1ijZMd9PBkypexefhH+jgSc/twBj1j3TwRK760u/Fn+jgyWrN
upj/74mwSE1k/vs88ISHrC1ddDUPPDlSYSE3GZ0HnqwOKC1IOZgHnnhVZdxz
1skDTyI6xm9YC+SBJxlaPgl7+3PBk9Bri4ePPsgFT2Z+f+U6nZULnmRn/1E+
4ZsLnlRdfvevkXkueDKkYr2ifW0ueCKvxXBXGs8BT5bkb1Vb3ZQDnoysvqyX
VpQzf//kwv7BgMAc8IT3maxTkU0OeFKlIb/kt3QOeMJ9HBfYPp4Nnizxacpx
eJoNnvitWyn5KTsbPCGCtuXlHM0GT8JNc3z+bsoGT7yPviZOT2eBJwmenKlC
dVngib/I1RSvyCzwpNUstIPPIAs8qT08GsH1JRM8sc7yG/QNzARPjk3qiOTk
UsGTpNLvjc45VPCkRuLJHd1sKniS+a3tmWoWFTwhmHr9BplU8KTN9OxvNyoV
PDnYSvqUn0EFTyi6zWnf0qngyaN9z3ptWZntid+e1huP06jgSRjHqU/WrMz2
ZOX+hp19qVTwRGFJdF0cK7M96e0qEDNiZbjelb1y9WwKFTzxW9WR0cjKbE9w
6oUdRazM9mQ08uNsBCuzPZHVCvTzYmW2J6a7vu51ZGW2J5LcRu47WJntyV4l
3u3GrMz2pOtV1EV9VmZ7EvKoykCbldmeZDkn5aizMtsTK6qhuyIrsz0Z1QnR
XMfKbE/2f+snVrAy2xPfHRTL/5Kp4MmvbvM7PazM9sRh383oe6zM9sTwxAWT
pGQqePLqpHTYHlZme0Jz1ni1LJkKnhBpAg23kqjgyc4NRlx7kqjgiYzfq9Vd
iVTwJGbTw6q9iVTwJCgnJPh2AnX+fvy6I1JLEqjgSWJwijsWTwVPXsUE8bvF
UcGTdpW+8WOxVPDk1sarvPtiqODJf4NNxhujqeAJ5ya5yx8oVPAkuJXsF0Km
gifD1043TEZQwZPnjwT494dTwZPhy0WMnHNU8MQqdfumu6HUeU+YqrvuB1PB
k5qQtteFgVTw5Izpb5o7iQqefPVY0rD4NBU84bh5FY/1p4InizlrZoZ8qeDJ
657GZ5tOUMGT75y5Ps5eVPBE2m88zfMoFTwhu3rw7j5MBU/8vu27u8GNCp4o
yWmXt7tQwRMf/YlB3IkKnhj8zaqcdqCCJ3Umdpj3bip44q5O73toSwVPTLdb
/LfYmgqeRPwrPaRlQQVP8g8KyuwxpYInkur9/O4YFTzZfHqmhiqUDJ5oXFt+
95pVMngyWiFgpBeZDJ5wa138pH8vGTxZOtLf2DCWDJ70xtrXjqqlgCei1sH/
PPdKAU/INIdMj9IU8KSsN8b+VW8KeMKnJq+asSIVPOEJK6lmqqWCJ5rZ3/YE
26aCJwY8HzNe+6aCJ9HVn1+9S0kFT1ItZQtyK1PBE76Tlfab3qaCJzJycg9u
/04FTyJOb1m3QzINPAnfMe7Ma5IGnvzsnH233isNPHntFfHrcVoaeFKfpNuu
ez9t/vku1yzNVwNp4MmbtzSHGbF08CTAknfUbUc6ePKWUhvYG54Onqi6eh0Y
uJ8Only1Oaz+mSMDPJH3fnSnYVcGeLKNy9z7VE0GeDJ6BfUkPxf1RIsP9WSg
C/XkdjXqiasR6knJY9STg0qoJ1b2qCdRVqgnxr/9EU9adqKeSPyNQjzZ1oZ6
YhaOelK2EvWEKwn15PEp1JNmRdSTvI2oJ1WcqCfKCqgnk89RTy7dRj3p2o96
MpKOevJtgSfuA6gn1paoJ7EdqCd99qgnvl6oJ8u9UE9sHVFP0lJRTwKkUU8W
eaKeGMihnrzLRD35JIF64hSAenI9GvUkShH1REwB9eTLv6gnLzVQT9SbUE9O
XkU9Ub6HenLiEuqJUiLqiWcN6knTKdQTlwWeOLmhnryuRj1RnbyPeHKiE/Vk
EwfqyY8TqCe1LqgnSwdRT7RkUE8EdFFP3k+hnqhrop4YKqGetBijnrxsQD1J
cUE9cVJBPREPQD359daG/11bEnjiWCue71GUBJ5EZsWFqPkkgSeOK7ErG7WS
wJPO700822cSwZP63clL/esTwZPP1ybqzqckgic//bwv3t2fCJ7I7zofcFM6
ETwxXW/cce5rAniyiRwTwnEjATwp5bwWLx+SAJ5kOu3ObDdJAE9uuAQqLeZL
AE+eplwkxf4bD56Ir2tpsMqKB09+BC6akj8QD568XON3ZWpdPHiitzbAI683
Djy5cmyJxruiOPDkQEiTximPOPCkaUp9t9r6OPDkp0+i852OWPDk8OMdtyqp
seAJv7nI8cIdseBJ09iy7s/TMeDJzKneSuaFGPDEapme6No9MeDJM/PCw2Fj
0eBJs7ghtSIxGjxR0Z70HxaLBk/GXr0ZJadEgSc8Sgmizn0U8ERp+UWdE8/J
4MmwtUSF1UgkeDJwci1v4/dI8OS04rmD775GgidHHE+ZHxuIBE8K2pU9wvoj
wZPmuNa9kp8jwZMfarS6rZ8iwRPBI5fsevoiwZOj4oo0LtbrbE/0zA12l7Iy
25P2Uv4l9aztsT0ZMqt2PPwlEjy5LWDaFjIYCZ5onaavFhiKBE+uXospFh+O
BE++mZ34lTsaCZ6c1nILT52IBE9m+Uerp6Yi5++fDPGOtcxGgidJG2uSNnCT
wRM3ufUN3Xxk8GQbx8o2HiEyeNKqx9efK0YGT35tfMuVtY4MnjBiXDX+yJHB
k13JAQceqpLBkwG72AND2mTw5OHBoBHciAyeXE91qne3IIMnGJeZd7k9GTyZ
eK2zx9yZDJ44jU13GHiSwZMj1+VMo3zJ4Mms7soLUkFk8MRs8/pVSylk8IQ4
2HfEIIUMnty5QvW8mUcGT/xK86vPlJHBkwdnrLrPXCeDJyKrGkxvPCCDJz56
25SVGsngyTMFk7strWTwpFnB73fVJzJ44ipKaqwdIYMnyxp2cU38JYMnnLI/
dtovo4Ana2VXmzZKUMATXkrbEQ8FCniCWa+UEdKmgCe+72lvmk0o4Mnq8cqG
InsKeLKhMGd76EEKeNK2pzXW+QQFPLHSj32lF0wBT248X+QsHEsBT0Rtav0+
ZlLmn+8ac/YqKaaAJ7+f1lzcU0kBT+4r2t369oACnuTsWaN4vIkCnphG9d17
3EYBT9bs5HCc6aeAJ5IJ3LwCYxTwpFhyldAvjijwRELoeW/F8ijwRJZSJ6uy
Ogo8KaIbbpS8hs9f76JLiVyuxMET5fTwNrebOHiiL/ItRP8BDp7IqRYLYs9w
8OSIfmXjmVYcPJH39ZYYGMDBE9l6NSYxg4Mn0+1V3JUigeCJE8b1Q14zEDxx
c1cPELMPBE+Mf7h25J4KBE+i0wTWPMsJBE9mR7fbPa4LBE/Olb7fc/VnIHgy
bJ5w9oZMEHji07UiksMpCDwpGj2R/yIjCDw5sZNryvlNEHjyy+Ed7ZdYMHhi
sOZc47B7MHiy6vCw0u3K4PnrXT8KlZ4vCQFPeDM9+2o8Q8CTEv5uku2zEPDk
VrHSpqM6oeDJpIboM43LoeDJccmWPl31s+DJrCFZK/3BWfDEdUuLk87Bc+DJ
+JqYj7nCYeCJKI/m0NK+MPCENtR9Pdk3HDwhvWkpPy0YAZ5Unb3Pv2V9JHgy
UieGeBI2KIl4sjzqLOLJ1fWoJ8ufo56kqKKeFPOjnvS4op5UfFdAPFHTRT25
SEE9kdZAPRl9a4J48nM36sn3KNSTt0qoJ3aaqCfqPKgnD9+gnlRyo57cE0I9
GesXRjx5twz1hLQY9eQ/P9QT/njUk3Rj1JPXLqgnImTUE5nPpognos9RT6rb
UE8as1BPVqignoiooJ7ccEE9echAPVl6HvVE+gjqyefZp4gnJrqoJ67yqCfW
i1FP3IVRTyyeoJ5kSKOeSK9DPbnzD+qJ1gJPSC2oJ0Q/6klCHuqJzG7Uk+fa
qCff76CeSO5EPekeQD3Z/hj1JEgC9YRig3rS5Yt6wm+BenIpCPXEmwf1xJ0H
9URygSeHzqOe9GRteipwbd6TyZ7PRP/VeU+E6p7cK74674mr1bC4+dV5T+Jd
pZgvrsx74nHpSrX+lXlP/q0u5U66PO+J32TJnceXcPCkijnW1XsRB08COsPC
P13AwROu6OZrTQwcPAkIkw7Pq8DBk8rYrZy25Th4UhyRZ/mlFAdP3gnsP3G0
BAdPIkI2UhqLcPCketybIUrg4MmS9DW/LWg4eNJh+z7u0HkcPBmU6gxzzcfB
k+KaRX+Mc3Hw5Jh0o+jybBw8WWy4Y/oBFQdPRF9rv3RMx8GT5dJd11tTcPDE
zFWh2SgJB088FKgOSfE4eGJRgB1/FIODJ2P7X+v0UnDwRLombrg/AgdPHIw2
1709h4MnM9pKHy6E4ODJin0OoV6BOHhSKLG+UfAMDp7MTp7lIvxx8KT5SI/T
al8cPEm6oM131hsHT5TUB2yeHcXBE3GhFrdZDxw8Ub1iGy51CAdPCpP4v208
gIMn7XxqvesccfBEhE+/5O9uHDyJT16OP7PFwRPhA13nw3bg4MmAq8ZBaXMc
PPnd9vbvFWMcPKG6dDxVNMTBEz2jDK4UPRw8uW0f/qd3Mw6eZG7fNSmtjoMn
B0U/WNsp4eDJXo91Jt5yOHgyeUNMKWA9Dp6EK33e470GB08cpYsE7UVx8CTn
9rHrskI4eKI8Zpw4wI/P//+Jo9xoPg8Onuw5wyoyJw6eWITp3Gz+jwSeyEjG
1e6bIIEnnzwkrzb+JIEnXMc+t2l+I4En+7Rjc+M+k8CT/Q3WFm96SOBJWaew
4Yp2EnhSFWz3zvAtCTw5tHHS+9BLEnhi/CvU6XQDCTzxCGVOh9aRwBPxx9yV
QfdJ8893tQw3e98kgSe7V51g2l8jgSe+QpVvlC+QwJMeO5V/potJ4MnjlNDB
uvMk8ORx6ZGysGwSeHLhwBPOzWkk8MS8Md6pK54EniRdruAPo5DAkxE3AZL4
ORJ4QuMtnGDgJPAE65T6ttmfBJ4Ii2ypvOlNAk9EjT3LNnmSwJOU3k8KFa4k
8KS0hZku5kgCT8pcbphG2JPAE5O0jdmfrUjgSWye1qCZKQk8Ec+JzKRtJYEn
wU2Ov8e1SeBJoxTFy1KdBJ6893Uxz1YkgSfFaje+fJQmgSfvuF+VKa8hgSdP
6Uc6/VeRwJPrNzM+VC8ngSdeGe/4JnlIzP8B1OyQIQ==
       "]]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, -0.05},
    ImageSize->{214., Automatic},
    PlotRange->{{0., 0.001}, {-0.04993471125085637, -0.005377739825551988}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}], ",", 
   RowBox[{"ImageResolution", "\[Rule]", "100"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.405989170178*^9, 3.405989195281*^9}}],

Cell[BoxData["\<\"incrs.eps\"\>"], "Output",
 CellChangeTimes->{3.405989204099*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Quadratic", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
         "#"}], "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", "incsRe1000", "]"}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.407898208859*^9, 3.40789825027*^9}, {3.407898388375*^9, 
   3.407898395547*^9}, {3.407898564023*^9, 3.4078985653459997`*^9}, {
   3.40789859744*^9, 3.407898600709*^9}, {3.4079036877390003`*^9, 
   3.40790368809*^9}, 3.407903838703*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"618.9252740826266`", ",", 
     RowBox[{"{", "0.00307616441827223`", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3423.8926495001188`", ",", 
     RowBox[{"{", "0.004055615751791772`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "4457.499336674621`"}], ",", 
   RowBox[{"-", "2564.0621370918966`"}], ",", 
   RowBox[{"{", 
    RowBox[{"2307.412552488437`", ",", 
     RowBox[{"{", "0.0051009137293623885`", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5205.0690002055535`", ",", 
     RowBox[{"{", "0.002971957020418757`", "}"}]}], "}"}], ",", 
   RowBox[{"-", "1695.0230217559244`"}], ",", 
   RowBox[{"-", "11548.754984910349`"}], ",", 
   RowBox[{"-", "16810.46420651117`"}], ",", 
   RowBox[{"{", 
    RowBox[{"28094.545009347898`", ",", 
     RowBox[{"{", "0.0017843496796573662`", "}"}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.407903839033*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Re=10000", "Text",
 CellChangeTimes->{{3.3918683120572*^9, 3.3918683130062*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]max", "=", "1*^-5"}], ";", 
  RowBox[{"d\[Kappa]", "=", "1.*^-7"}], ";"}]], "Input",
 CellChangeTimes->{{3.407903868942*^9, 3.407903879324*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"incsRe10000", "=", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "/@", 
           RowBox[{"GetIncrementsM", "[", 
            RowBox[{"mat", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Kappa]", "\[Rule]", "k1"}], ",", 
               RowBox[{"Re", "\[Rule]", "10000"}], ",", 
               RowBox[{"G", "\[Rule]", "4"}], ",", 
               RowBox[{"\[Omega]", "\[Rule]", 
                RowBox[{"-", "1"}]}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"-", "10"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k1", ",", "0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], 
        "}"}]}], "]"}], ",", "k1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3918671489342003`*^9, 3.3918671597522*^9}, {
   3.3918674039161997`*^9, 3.3918674115652*^9}, {3.3918675198992*^9, 
   3.3918676012472*^9}, 3.3918676424242*^9, {3.3918677601272*^9, 
   3.3918677621582003`*^9}, {3.3918680008032*^9, 3.3918680193082*^9}, {
   3.3918681005362*^9, 3.3918681291562*^9}, {3.3918682208192*^9, 
   3.3918682395592003`*^9}, {3.3918683179522*^9, 3.3918683702552*^9}, {
   3.391935387656*^9, 3.391935393332*^9}, {3.407903882093*^9, 
   3.4079038853719997`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
     RowBox[{"Last", "/@", "incsRe10000"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918678217321997`*^9, 3.3918678281172*^9}, 
   3.3918680241212*^9, {3.3918680659672003`*^9, 3.3918680767972*^9}, 
   3.3918681408311996`*^9, 3.3918682568922*^9, 3.3918683780942*^9, {
   3.407903909299*^9, 3.40790391276*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9kwk01Vkcx8thSjPNYRoZHZk6CkWypCJ+5l4Z2ygkS6YajYe0KlvUpIwk
UeohiowsxZBeyZLp2veex/Osr7yNXoZCSslkzDnvzj3nf+75nv9dfr/v93NX
HzjmwpBbsGABY/77b6ZD80FKhd1bTGzvV6ZN9oRDWpRQ3vJ/fQkWaHsLNeZ1
SNTSqXermTB9G+xeTdL/abDTwNwwY17Hj5VkTjdkwv28yFiLSbo+G96nCi0a
JzDZr8awmTqdB6VKQpNtE3R/PnRGpLmmjmNiaP3t63GjIjD7rH1K+IaeVwwu
bPLbsnl9vsy7JSSIBV4KCeYbX9PzH8Ecf/mFTWOYBOwoXxncXgLVOcd0NUfp
faUQVG34cWYEE1eJUuDJ9eXAVZ8qe/KK3l8BrFYXQ4YUE/Nw/7rA6EpoarDU
mh6m9TyFEx0bPAOHMNFSqlI9LiAgH3I0lium9VXB98UeQStFmCzixpmUplcD
k6TzdghovTXQ4X3Fz+8FJrPpW/ZvdqiFDaY+Yl8+rb8OHqrdWOjYj8m4v/hi
yYc6GLZVD1frpf3UQ+QAS76Nh8mQ8RXWptwG0LZw9PTh0v4awVDV0UDEwaTv
sxn/4a4mMFdpw9Zs2m8zjPUtcYhvxYTdPKxgvLAF9kZny1c00f5b4K38pF5r
PSY1zGsbWUWtUPDAOaqqhvrRBr6cwOZUgknpfvA0/PkZRCdk17pVUn/YEFu0
xnS6DJOC9SPnixXbQeMWYyq8hPrVDlbbnWuFDzDhzNh3p3hxYFtDbKhuEfWP
A03Nj4bd8zGxF6w65G7UAR91i0Z8c6mfHeB2sMbbIwuTuvr3c8sVO6F8z0t9
vQzqbyeEJklNRamYWBa0MbsHO2EsIflYeBL1mwu6n8erp65iUn41a13yYy4U
amMd58vU/y6QG7G7fSUGE+OQsKe747ugtnDnuuLzNI8uMEozYbPOYFLotWOX
ig8PePaJN1PCaD48WBVZnL3vJCY6aI20y6wbFBv/kFt8lObVDQdzN3Vd98ck
S2vmNFO5B6RLP1nI/Urz64GWKtOAXXsxUf+Ko+wq7QE/M/HFGHeaZy9ot0a1
ZzhjkjyRk7uM9IKVi+6pVAeabx8E1OxuCLXGRLknYhs3qQ8i7dmzppY0736w
qo33E2zFJK7SmXPtcD/c/XDD7ZARzb8f4rp5GgO6mChkaTNcrAag4JJEzWAt
5WEAwsImcwI0MDkb889H5RV8WFwcuzZOlfLBB9abA3OJSpjMHOYmdIzzYa5D
P+OsIuXlObTF+R53lcMkyOWeZmLjc/Ay+0aq9AnJ+HkBNkuSwkveIvJ6y9ky
p4wXMOQWlIlHkYynQTDZuJpXJkHEf+VuR6XgQdhqX5X83XMk42sQzqhPMA7w
EAk8pzLxcq0AJNo36pOfIRlvAjBlZZs9rkdEPyjyiU2iAPL0+A7VfyEZf/M6
MvtcWQkio75/R+fNCmCzzjPGrUIk41EIQ3ZeUUdyELnn6ea0yF8Izos8ffXS
kYxPITjl3b7Zx0TE96fqFX5cIejz84uDLyMZryJovexnvPB3RDQt9YYaQAQx
1V+wTkcgGb8i0OFzKqQnEBEYptzXyhdBxJ+fBqwDkIxnEdzdcO4O0xuR9DVy
4RdUxFDf9i6D54FkfIuBWenjpeiEyB7VI9uHI8Vgm6nDMLBBMt7FYCzfbOMA
iKgu6f36x1ExsG/1xO8xQTL+JfCLlF21Tw8R3izuy3GXwA9BE/4emkj2HiQQ
bKa71HYFItfeFN5RqJWAQ+ikkb4ykr0PCVyfXbfvy8WI/Auf9EL5
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.00057},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3918678286452*^9, {3.3918680142642*^9, 3.3918680307752*^9}, {
   3.3918680710902*^9, 3.3918680776792*^9}, 3.3918681412172003`*^9, 
   3.3918682575572*^9, 3.3918683785612*^9, 3.39193540054*^9, 
   3.407903916283*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "\[Kappa]max", ",", "d\[Kappa]"}], "]"}], ",", 
           "#"}], "}"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Re", "[", "incsRe10000", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3918676696212*^9, 3.3918676814692*^9}, {
   3.3918677304552*^9, 3.3918677316562*^9}, {3.3918680355811996`*^9, 
   3.3918680463101997`*^9}, {3.3918681485332003`*^9, 3.3918681625252*^9}, 
   3.3918681962502003`*^9, {3.3918682692111998`*^9, 3.3918682740692*^9}, {
   3.3918683985682*^9, 3.3918684021802*^9}, {3.3919354028199997`*^9, 
   3.391935411033*^9}, 3.407903921541*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd23k8VN//OHBEoQ2RUslS2SppT7nMRbJmm7EVqTF3GNtYokgkZUkikV3S
ZguVLQwhiexLJHtSllCW0vLze3zMa773Pf/M4/U4c+89y+uc55x7Z8TPOhna
cLCxsU0vY2P7/+/Ml8Jo+tazGc6ME0+LY6c7LiIL/6IbX5Yy42DEJUBp67Em
Z8Z5/9U/ZsQjkd1skXOfBpnlscgAcri4eNaZETr+InnudTJCfrV+TSUPfenz
qYiduEX7v810htVGG40f3o8Qgy90Q7c99KXj05BB84cSO9ToDAV1wYnJvVkI
ccPqUyKm9KXzZSNIX1oiyZ7OuFJg/fa8Wy6SyiGi0O/LPP9z5OIsVbL8Dp1h
p1e4xb3hBeK/OsHrbxrzevmIRSfqlFJGZxgP8dFdZQsR5Q6Op/ntzOsXISVX
Q2u1xumMYxeplfSAYkSzmo1hx+myVJ9SxPKgXIbMZhfGDr4yYec+BkJvqPmW
sN9lqX5lyJ+t7M8GdV0YK1pCDuQnlCPPTxw33Ep1WarvK+RxQ9Y+P38Xxu+E
Q1YHtSuQLN9PBJ1kl6X6VyIt+Ucz+0tdGJPUwcAX85VIjsyC1ftel6X2VCED
giE393K6Mj7tC8vd//A1Qmqf8P2xy3WpfdVIRqvA3uizrozOv4rdz4zeIJsT
rd2PN7outbcGyeHujrBvdmXU1wxz7WN/i3iuu4pefO+61P63iL5JoF1inyvj
VWSEfG5WLWLhcytN96vrUn/UIa1fd1/2nHFl5FshZgqn3iHPMEsBcw63pf6p
R7q21YRJ8rkx0mW/XsnmaUAGfqfmqAq7LfVXA6LS2vCoaIMbo/GXVnu0RSPC
4P1H+LoY/6//GpE/J1OPlS7GWn1iNJO9TcgVqrojdTH+X382ISsmlaSnF89X
WTX7bz1PM7JyPvi1yWL8v/5tRsIshNeFrXdjKKfXRbb3NiMccVEbA4Xclvq7
BblUvC9ETtCNUXgrRSYqrwWZblq22kTAban/WxG19GT2jrVujH3nPUuJoa3I
9lXRkpar3JbGoxUZR01++K5wY2Ra6BkJkduQAMNH996yuS2NTxvyq+xiCce8
K0OasG2kVbEdubrZ1ow6zhyvdqRqrLTQq9+VkbLjl3ckfwcycPI3LbmVOX4d
SNOzu4Ps1a6Mzasa+Y1HOhDzHW5p9wqY4/keeWNySIfyxJURNfXg4TrGe2RT
bYeneAxzfDuRYzH7fG5ed2Xwd3gdbbnTifQ1GOtrujHHuwuRF/KXKLJ0ZYQU
GzRG2HchRU9q2EbUmePfhfwh8dtzSbsyuFKkbAxVPyA67MHLZ9iY+fABeRLj
GjRc7sK4fP3PT36RbsR3uO/tuKTLUn50I6OeBatcJ+iMX/YtN5smuxE2f9Le
/Fb6Ur58RI5y31CSqKAz3AyfSIZXf0RiY8j0iy+Y870HYWw2yBFYnK8Thy4X
6Cf2ICdrb1uuTaYv5VMvIsF36+p4FJ1B3ULU5XPvRWx1BNaQbtKX8qsXOXep
qJ7nGp1B9xOa+ry9DymZjrftuERfyrc+RDDsyvM77nTGbjfflxrhfYiNTYqV
mANzfelDzKUr+olkOmOMMhrw6HcfYuaxfN96C/pSPvYjTvtuSaMGdMYTM5L+
Cmo/IhfUTH95nL6Un/3ISczV0uYonUHRKRfBWvoRsT9dL3bI05fydQAJ6KT8
HROnMySVd356vbhaWnFf8MpZx1zPBhCnbumsy5x0Rp9C9NMdaQPIvvVDvN4/
nJfyeQCZCru/cmRxvU3YxnHxmtAg8lGramJri/NSfg8imh49n7vqnRnmwg5q
w76DyODvdu8WIfpSvg8ik7+oz3PO0BnCvO/XHB8bRHgkxeSQHOb6OYT8ypi6
GrHKhdH2G+18YDKEhB7ziEsLclmaD0PI65VFt8t/uTAivmXe56oYQjJ/3Rj3
XO26ND+GkIfrZRJfbXVlMD1B570Trf+PJ5Z+OrpysSxP+CaOaQgFsjy5U+q0
Zct5licaQ5MqKmSWJ6bHp5S9DZ3Bk+hrbBX1Ks7gySujxuAD8s7giWiPi2PW
Fmfw5NPJteaHVjmDJ0k7+OPjZ5zAE9XQ3SUDzU7gCadSIaaU7QSe3P7wRfBJ
qBN4Qjt9yFaC5gSeZIj2H3p4wgk8Mb33/brCDifw5N4Ad1z5MifwJOyFyKxR
vyN4UkJqtR8udQRPnBK/ynvEO4InHVZSvZwXHcGTll1/k26aOIInygefHRE8
4AierI2zOhwl4AieXNSy37B+0gE8kffw9I565wCe7GtY77wp3QE8IZ8hFaUF
OoAnz44WqupQHMCTzwclInnVHMCTY6Lhjt/FHcCTS4F5ERvYHMCT/jXPsm/1
2IMn/LxhqZ4l9uBJv5T5tpl4e/CkMo+hfOCSPXjCv8Xw9nlLe/DE1eA7fTXB
Hjxh39J4zGO7PXhynTM1OGiVPXgil6Gn93OOBp4s26A51DJKA09udc5dXTZJ
A08WMpxyt3Hbgydb5+P4W3bagydJtp2msSb24An78hG5tgB78OQcGx25mmcP
noS5yaNqX+zBE99en4npLQ7gSYjrqOVNYwfw5AWqESwd6gCekMt57w1UO4An
PcSiHWOcjuBJru4V06tqjuCJ/+DKqD/XHMGTu6Wp8hV1juCJUHBg9tn1TuBJ
2U3rzliyE3hSaJWb7VbgBJ6cWn/5Zz6PM3jiSS8/MHbUGTypX9MUXOrmDJ4s
qzwozMh3Bk8MT2mqbVlNB08ez3KVOkTQwRPdfrwnJ13xnlT64T2prA3BecL1
H0+8N+E94f2PJxlr8Z4kq+M98fbGe3L9G94Tw1C8J4ZkvCclknhPVp3HezKz
E++JxwW8J/8s8J50/cZ7ovse74n+Crwnru14T8wE8Z4EheI9mT2B96R/VmXL
rVcsT9xvViSm5jqDJxuT538U3HcGTyoj2QzWRDmDJ9olg+01Qc7gyaaP8o/n
fZzBk/v+f9Wi3J3BkxXxpVURDs7gifimvKYOijN48uouw1lzlgqevHolN2IM
cTAS+OMvxWMxZnpyjnLrUA6UxyIiJr87OOao4MlJ5YA/9nNU8ARptYuZXIyZ
nlBKSL0356ngiXDzeV3Nn1TwJLrSOk/8FxU8Obm6WUdkgQqeOCaJ5xz4TQVP
Muc9pCL/UcGT2BnsYgeHLXiyK1ZX3Xu5LXgSqNSJZfHagicF3rSy4LW24Alv
zJvZnUK24Mm7N39NcjfZgieOIQdzFCVtwZOogZazI3K24Im1FVtf7wFb8MSu
VOTucYIteKLSYKxO0LMFT67w1DyfOmULnkTP3j/u5mALntgFdt36eNkWPCmg
S6YejrQFT3RyX566lmYLnhzNlRwueWULnlhKnlar77YFT2oOp7gmz9uCJx1T
tXc3rrcDT1Qav9ZtPmAHnjxezth1g2gHnhi754yd8LADT1DFtDmFWDvw5FjA
BlOxUjvwpG7k1Z+eATvwZPT5+gxhbhp4ouy33ERiFw08MTJCXnrpszwZ9P1F
0XRkeWLCHcPe7MPyZDq/+3nqYsz05L2jQIemOw08UbYpeqRvSwNPKJYi151P
08CT1AoX9JkhDTxxaLNJ8dOkgSfWl6z82VEaeBLx/X7nkWM08CS0SO++xGEa
eCJ3/clYxgEaeCJqWHSgej8NPNGzJc9ZLZYzPUnNHBbGDtHAE5/we8X1ijTw
ZG0HsTBEmQaefEJyKu+o08ATn/SMkM86NPDkMqfRcx8iDTwxKy/psrCigSeT
PqfDrtjRwJOCHdoWP8/TwJOo6YF3NVdp4ImQvnAUWyQNPGk66fUkM5UGniw7
PXRxKI8Gntiah6DFb2ngibT3GzP9Php44hdSlFG2+H2B6YnDhIPaXn578ESY
sX+sYac9eFL+vfHHWy178IT9kL/wKZo9eNKw7NmFypv24InSqECD3gt78CRz
58cI/V578EQyzEpDbrUDeJLymDdOV9kBPPn2vuTQ/vMO4EmLOXeHba4DeBL1
RXQu4IcDeKJqm3ZQRskRPOmZHP87c8MRPKn4wz7tP+QIniSXPBfSVXMCT/Ye
2ttzJ8MJPLn2icaVvoblyTCPfqywNsuTLglXG0IIy5N7P/CepN7Ae3I/Fu+J
7G28JyeK8J4IduE9afHDe+Ifjffk40a8J9Q7eE9GCXhPSmPwnjRK4z3JNcZ7
otB0FedJ8AW8J9XaeE823XLHecIpdgbniVprE84TxU9bcZ5wS1a8N1tgeRKT
naI19osKnpjxJk15LsZMT9qWK5Z+/EkFT/pCv3/jXoyZnkSrtu4cnaOCJ2o3
53TcFtvL9CQwyLMq/AcVPBFyn0N2TVPBE0RBq072GxU84W2tOkYZpYIn/nK6
j7KGqeCJHNFPubSPCp6MrfnmK9NJBU8WtKtVDjZQwRPRMTkns3IqeJKL3qvU
TqOCJ7zfZfLCgqngiV6onb1vKBU8WcvelmEaRgVPUqzNHdbeooIn7XeuuUSH
UcGTUU9B0sfF45mebGC74lsVTAVPNqYcHZO5RgVPOPU/UTsuU8ETryfS/UEe
VNb9ro9PS4btqeDJYdf5JFcrKngieibheYAeFTyhfxDbJH6ECp6MicnWPdtC
BU+6HbgMvX5i4Al3bILq3WoMPAmK0Ca7BWHgyfLI8GMUFww8Ke/atuxqCgae
ONmw9daVYuDJnsRTa3OaMPBEzYltq34vBp5IYbmjcV8w8MQ/fNIseQoDTwwq
ExIW5jDwxE89/T7/Hww8abZyL9/GTgVPQucN085yUsET9g+TL0eXU8ETUvBz
kw5uKngy8zgn5iAvFTxZZxazaf1KKniitJpD8vJizPRkII5B91xJBU+uSnx5
v3wxBk8I6Sm7eKngiU9Pbu/E4vWYnqQnXUnWXkEFT35NqIupcVHBk0fpfUMd
HFTwpDOsu52LjQqeqBgvGNb9xsCTyxUFB2UWx4/piQsaP7JxBgNPnh+cORU3
iYEn7Yb2wmmjGHgi/zlJBh3GwJOHY193W/Vh4Emklq76704MPGFUGy8TbMHA
k3dxr+ySazHwxHVPSEdsBQaerPxn+967EgNPRCa4j5yswcCT0HQGW847DDzp
tujcF7SYL0xPJPpOdxW3YuBJf8yR6/IdGHgiw6YiVfkeA09u66zfbNmJgSeN
V/TjBxbLmZ4IplLVFDsw8OTb+Jc8w8XzMz1JS1opIdaIgSfrRGuuJL7FwJN3
kzEhzRUYeOJjfnrX25cYeFKqPvExPhcDTzIT3zbRHmPgSe1TD6ezCRh4cid4
7ER+OAaerNYWuy4dZwOeWBPPa/Tk2oAnMmIRR4ff2oAn3mn72o8O2oAnY4fT
krsWbMCT1D/Y6lJBCnjyTmDQqn8XBTypvbs5QlmDAp5wzZofajlDAU+8zyVa
RF2kgCcJHhetrkRSwJO3mkqNYVkU8OTMv8ZjeW8o4MnIvQTusQEKeLKyUEV5
xx8KeBKahjmaCmPgiW+OUJibAgaeJN58tZqmjYEn3nu/88jZYOCJ7DLT7yk+
GHjCkKopKY/GwJO0VlmOC9kYeJJnmR1e9gYDTySqOK3j+zDwxMdM/P6OeQw8
idoh9jplLcsTamyv4WMplidlj+2sHxJYnqikyc7Un2V5go5L4zxZ/s0W54lE
TSvOE8GTeE8W6HhP2tzwnlgN+OE8GYnFe2JQP4TzxMAN74lAIN6TpN14T/h5
8J5UvcN7Ypgug/Nk9Djeky8CeE+k9PGevHBXSc0+w/LkLXEoZFKP5clQQbha
/nGWJ6VJMWGtKMsT2V+3o1ACy5PBlSqn1hFYnvzWX7GqjsDypNj62hFpVZYn
ZlvRqn9qLE/8nXZqKWpg4Ilel2fgG00MPJlYuf9lsg4GnqiRFNyLT2LgSdyX
BpKwEQaexP9lJ2SRMPBEXOVHs485Bp50qm4Sum6JgSfRegoqVWcx8ERzi+2d
QxgGnsRIrSV00zDw5GP+QdUcZww80Tfwt3jujoEn57t5ZwcuYuBJXnm7sKIv
Bp4Yqoxq5gWwPMl3HPczCmF5cnhjxorV4SxPQhu/kj5GsTyJyRz/XRLP8kRr
lTv9UQrLk8JRwdFbj1me3D6mIu+cxfJEifrP8shzlid9nbte9RSyPDG/bBOp
z2B5kjuB96RsHO9JYxrek9r/eLKpB+/JRDjek8gFZZwnNkfxnmRewntyOgXv
yYcxvCcfEvGejGzCezJYi/dEwxTvSZsa3hOdeLwnxx/hPfG+gvdE0K7H9P96
cpcvTrnGn+WJHdcItcqe5Qn//I9OcRLLkwVp+YZBZZYnQkd0h/lkbcCT4l5b
haeCNuAJEhyuVfWPDJ4kkAYx81EyeLKiwc75fAcZPIlhe80vUUkGTxreJLZT
csjgiRLHN6WTSWTwpKxzqnk4lAyeRJtEqCteIoMn9X08/iYOZPDE4MaJel1L
MnhCKknp2KVPBk/6OSRbeFTJ4Elf8psbMwfJ4MncwdELy3eSwRNGF0e1kQQZ
PInXVLCe3UhmPT9p2rPAvY4MntRk1a5+vJoMnnhFlLdO8ZDBk8IzIlrLucng
iXUWWXIFNxk8sXho1C7MSwZPDO4+zTi9hgyeiInmTf8TJIMnw8cETkqLksET
+Wp2s2WyZPDEw30ksPwwGTzZOKqcfleLDJ68+FLF99qKDJ4UdSl3hHuSwZMv
b7A+oztk8CQrr/6CVx4ZPFHSvB4W100GTyjok2WXuW3Ak3NWFhk6R23AE3Z1
ke7a8zbgSbXSOaPpEhvwRHBrlOfm9RTwpOBKnc2XQAp4svHy8A3ndSxPRh3w
npT8xxO7R3hP/sbgPYkfw3si/E8Z50m1Lt6T5US8J2GieE9y7PCeBHTgPbnL
i/fk2G68J8WDeE/E/+A9ETmM98TlP57U6OA9KduE92RgK96TZc/wnqDaeE8m
u/Ce+JbhPUEP4D25YY/35PcGvCdttXhPLiTgPbFfifdk0we8Jxv/48lPDO/J
hQ68Jz178Z48OvLw60IRy5Pr49NOL3NYnnjuUEIaH7E8Wc8lybcngeXJrNxR
44ZwlifUNIvp5ACWJz9MVZZFebI8UYgZOZ9gx/IkenN/6n0Llidc54TKwrVZ
nkxXJmzXVWR5oijH7ZUnxfLkISP4xuN1LE/2eS+0zf6hgCefnlXG0IYp4Mmg
Zb1lVR0FPOmlzCQ/y6aAJwsStk7N4RTw5JSg+/1UJwp4Mjf3J5pvjSl44uU9
ZRYtawqefE6WCLbUMAVPmmK4ZU6RTcGTGx98Tgb4mYInJO4HgvWJpuDJ2PxZ
ukyxKXhisrlLPKjTFDwp/nvw6sdZU/Ck8dRWdyFBM/BEdSpMRlTBjLU/uWO5
fFDXDDzpmjnnrmtnBp6cGS8pULtmBp7kz14uzrxnBp6c3xnw2a7YDDwh1oiO
WbSbgSdOY1kxp7+ZgSc6b8jZmivMwRMHrtMFs1vMwZOYh08+HtpnDp74y1Ka
u4+bgyec7L35Oabm4Emg3PCay1Rz8KT1PjGL57w5eBJe+KFYwM8cPPm4Wumx
SZA5eLJpMJAv4qY5eIKan7jrccscPPGeM/MvXCxnenI9vnYZ5+LxTE94m6lc
f3zMwZPpc8cVUGdz1vMTwxUlNqfMwZMkHmvSF9QcPCk1u/77gKQ5eGI1tCz6
5m8z8IS3+lfv/Dsz8GT3+Q1vBaLMwJNoywDrl4Zm4Mm99SW9KJsZeFI5f+vW
1yhT8MTPvv5L4h8T8KSlN+EDSdQEPDldWrelcIEEngys69V+204CT9JP5+oU
PiWx9icKq1aOXiOBJyPxr2s3nCaBJ2MBN+Lt95HAk82747h8V5LAk38j57U2
fCaCJ6UHErDUaiJ4Mirsebc+kwiePDvjGOQaQ2T9vstYTmMiiAiebB/yCHL0
IYInXrrpvrvPE8GT42jWvkBnInjS1ErwmLcngid1Be+CRWhE8KSixG7hnh0R
PNmqqsNGXCxnepKUMv11hQMRPDHmP/skxokInswqOcpOuRDBk0QrF6eFxfow
PaHGfRRN8yKCJ5OCKu7TvkTwZGKVnVfdNSJ4stCzw2lvKBE8ebAVMRCLJIIn
JitEw27HEcET2cH95cH3ieCJj9xXT64MInhCjPQV4XxBBE9U6FJl10uJ4Inm
rf3bIt4QwZP+8eXh21uI4Mng1fNtaj1E8MSpcfbY9y9E8KRDozV4/ywRPHH+
LDS/ahkJPJndnbvPj48EnsRF95KjREngiW+bpbzhLhJ4Ypr7tLDoGAk86bNQ
eNGuQwJPLi12aeZi/jE9sfTCio47kcCTsJFvaLofCTzJL+42G4okgSfZK9rk
fj8mgSfNyoSmPyUk8KSOR9x2poUEnlDEdh6e/EoCT4aVpup+c5iAJ/2h1TJy
m03Ak6dGYTM3DpqAJzzads8PGJqAJ3Srcp6jTibgCWkG78mnq2fcWqZMwJNP
P/kpI20mrN8Lu91SNikyAU/mlvGgUkkm4ImfgLi81VUT8GTD0TYzLjsT8OTL
r215W/VNwJM26yMjzxbry/Qk9/knw+otJuCJsu3QdisuE/Ak0GyQ5jtOAk9G
XV9v2LO4fjA9mfFS3eDKIIEniuTDp/WekMCTO9+XT7++TQJP/qh48w74kMCT
T9lPhR/YkcCT4Zd+PUImJPDEmi82XFGNxNqf6L3+tnEvCTyRldxNfSlGAk/i
/n1Xl+IjgSfFz5I+UdhI4EnIGdO5q1NE8ERh8++m0EEieNKxnf1jWDsRPHF/
yb8x/i0RPLm9f7T5NYMInvy6ah4unUcET1JWRpj0ZhLBE6P7C9Z8j4jgyZVX
J2O/3iOCJ7LrNLenJRJZ97u0BHISEojgiR9nUObuJCJ4kjd5M3EC5n8Dcull
7M/MDCJ4ciFa2vNhERE86XHPZG9uIIInzqpe2UXfiODJySbDggVxEnhyL03w
QtBlEngieDwe5wm3Mt4T4pkenCcyUnhPbqavxHlStgfvyZ8teE/ONcTiPLEr
xXtyVxDvyZpmD5wnfNp4T7Q18Z509+I9qdbGezKnjPdEpgbvSVgO3hPZfLwn
Xw7hPbmchPekeiXeE7ddeE881fGe2N/CexK0DO+JHC/ek5fNeE/ub8R70s+F
94SjB+9Jw3a8J6QIvCfxjnhPBt3wnsT+x5P8K3hPmhrwntxXw3tS9AnvSasU
3hPHCLwnu1rxnng+xXtywQzvid4HvCctnnhPlD/jPREpwnsSzon35AKC90SC
C++Jgijek3OKeE9igvCeZBjgPek+gfek4zTeE9mc6CLN7yh4csPqX17QDxQ8
SXls/UtzHgVP7rvaOoX8RcGTWCHHxJMrVMETnpbKp3cFVMET21MujrZiquBJ
8D0Bnao9quBJXs9rm2xVVfBkTWBWkLyZKngiKVesdIKuCp7kiv+rZruhCp7o
b31w6MwTVfAkOCnYybFGFTwx35a4d/+YKnhyqoiq8JJfDTyhyU9tXKOoBp7M
ars8OWyjBp48Kowq07itBp5sHpK9qFmpBp5QTqxT151XA09+ffVmJ8urgyfR
gcslkm3VwZMMSYsmoUfq4InWmaLNHz6rgyfxlwK2ce88Dp6sTNphlO96HDzJ
FrSP42IcB08OZ11iCKzRAE/c9dXvsVtrgCeYh0jCfL4GeLKfsX1SfN0J8CTg
9RnZDJcT4InAa3LG2/YT4Mn7VdLyecqa4IlZ9GGDzExN8OTOpJ3YjJgWeKLf
LX6zM0YLPEmaeJOZuUEbPKm6F3ilNkEbPOkQ0/geIaMDntz9niuHFeuAJ0VP
eiSfkHTBk12pksKZ87rgiXn60x2PUvTAk90DDeuCjE+CJ3uf9ckOLdcHTwze
rir0o+iDJ2uW+09WVOuDJ9NqQe+dpA3AE22RoK20AAPwxLFjFVX1gwF40nR0
m8xeKUPw5MSJ90E/MUPwZMXPoxMzCYbgyWT0HoFrbw3Bk3TnZFfLb4bgSaIm
o3jLGiPwRC/sEL+EtBHr/yeyfXL+iBF4Qs9P2bfJ0Ag8+RocyHX7nBF4whYi
HurgagSeGKrzzfJdMQJPBtb9KXwXZgSeTEhEfx2MNwJP9H68F7v+xAg8MfTJ
sOt/YQSesFfc9BJ6ZQSe+IRsNFKpNwJPXkRhPhe7jMCTDD2RtZ3DRuDJLxcD
C8fvRuDJu8GnkVpsxuDJKb0cFe/VxuDJysGpGL5NxuDJlPmavnUyxuBJupFd
bPghY/BEJFeyKfK4MXhSgZQg0iRj8GRVVYQ3iWIMnjDoBXKyHsbgyZxr7qas
QGPwhLwHcR6PNQZPLj4xqf6eaQyeNPKHnXlXbgyefDX+cPx6uzF4Yt+y2Ud+
zJi1P5EuONDGQQRPNu0fZA8SIYInVIGELaf3EcET9dyCfBtdInhiN8elV0gl
gidngq6L0AOI4Emke330k0WfmZ6M71KX9K8ggicVbIGvJT4RwZMtbGr7n3GT
wJP+L1M8lN0k8KRLcc7RnURi3e8yjNu/Y9E7pieS//Ek1r+fU/k7yxM2Ket+
0e8sT+aSEM0v0yxPTu45ppC4GDM9efrIN0hpGgVPZmP6laqnUPAkn6//wNEp
FDxp9oo1jplEwRPFv1IX+r+h4IlhPcNn3WLM9MSC6+Yx+QkUPPnXvf7a/nEU
PCl/4CQnOYaCJ27lCj9/fUXBk5bNPwpefkHBk9xaQwWbERQ8efNaecfcMAqe
uDTtMqN/QsETzvOOQS2DKHiyNdvUbcsACp5EMhLa9PpQ8KTJOgzDelDwZNcR
8iClGwVPnm28y67bhYInwyc2X9z4HgVPfD/kcta1oeCJlJKuGbkFBU8UhHX3
DDSi4MkxoTpUvR4FT8Y7ebVDa1Hw5HRAKmfRGxQ8+c45vbO2CgVP0nMM/Mte
oeAJpZFeE8NAwZOAm6kVpGIUPAnK2nZkrgAFT0TjbX5cfIGCJ6pqBhX9OSh4
cvR1kIdcFgqevKl5PmyShoInP+WyvlIeouAJyfaVtWkKCp4Umn/evTMRBU88
7owcGYhBwZPxm1FOF++g4Inc38nyH7dQ8CRTCpU2uIGCJxxfNZPCrqPgSUXm
SZnsKyh4sjf2QH3uJRQ8adMKj4v2RMETMd/sVEtXFDzhqb7Hwe2Igie2D/e3
3qai4MnI6gUljnMoePK27Iid0WkUPMEUBwOvm6DgiVStf0OiAQqeqBrKXYjR
RsETu1fE1x7qKHjiq1X/+4gyCp6oVoRifYdR8OTx/F0SbS8KnoS0t4l+kEPB
k/TgoY17tqOs/Ynn9AM7URQ84c4O2h4ijIInud/O/gvnQ8GTf027Ey/zoOBJ
XQjF2ZgDBU8sFAVG+BYI4IkG752LL74TwJNPJLdkdIwAnhyQF28rGCKAJ4e1
yqI2fCSAJ5c2T9mcbSOAJ0NSd6ui3hHAkyO5qYp5VQTw5NHObu3yEgJ48sg3
1a/gBQE8OSj9ziY+kwCefNK08Hd4QABPDFaYUXYmEMAT/UdJcZ2RBPBkd3da
tvsNAnhSewPbx36VAJ5cL1+e6+1FAE+kuxuLRlwI4IlXxsIHdTsCePJ4l9/9
SGsCeFJVN5PYZkoATyKLyRY8+gTw5ESytM0eDQJ4so+zRkMbIYAn9fEdoeYH
CODJmZH6MsudBPBExW2KaipJAE/cFeVWnxAhgCfaHtN7d/MTwJPbv2UsV3IT
GP8P23+pbg==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -0.004},
  PlotRange->{{0., 
   9.999999999999999*^-6}, {-0.004906573361895538, -0.0005197577959989034}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.3918681630982*^9, 3.3918682747232*^9, 3.3918684026762*^9, {
   3.3919354039709997`*^9, 3.391935411717*^9}, 3.407903922832*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
Evaluator->"auxilliary",
CellGrouping->Manual,
WindowSize->{877, 662},
WindowMargins->{{70, Automatic}, {Automatic, 0}},
ShowSelection->True,
Magnification->1.,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 82, 2, 31, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[675, 27, 170, 2, 71, "Section"],
Cell[CellGroupData[{
Cell[870, 33, 385, 7, 53, "Subsection"],
Cell[CellGroupData[{
Cell[1280, 44, 318, 6, 29, "Text"],
Cell[1601, 52, 8449, 221, 142, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[10087, 278, 641, 15, 46, "Text"],
Cell[10731, 295, 156, 4, 31, "Input",
 InitializationCell->True],
Cell[10890, 301, 231464, 5754, 4530, "Input",
 InitializationCell->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[242403, 6061, 239, 5, 31, "Input"],
Cell[242645, 6068, 5365, 166, 118, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248047, 6239, 280, 5, 36, "Subsection"],
Cell[CellGroupData[{
Cell[248352, 6248, 253, 4, 28, "Subsubsection"],
Cell[248608, 6254, 639, 18, 45, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[249272, 6276, 64, 0, 29, "Text"],
Cell[249339, 6278, 432, 12, 28, "Input"],
Cell[249774, 6292, 369, 11, 28, "Input"],
Cell[250146, 6305, 720, 18, 46, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[250915, 6329, 162, 2, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[251102, 6335, 160, 2, 29, "Text"],
Cell[251265, 6339, 1095, 30, 96, "Input"],
Cell[252363, 6371, 974, 28, 77, "Input"],
Cell[253340, 6401, 1284, 37, 128, "Input"],
Cell[254627, 6440, 1046, 31, 80, "Input"]
}, Closed]],
Cell[255688, 6474, 571, 18, 56, "Input",
 InitializationCell->True],
Cell[256262, 6494, 6447, 176, 445, "Input",
 InitializationCell->True],
Cell[262712, 6672, 155, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[262892, 6681, 950, 18, 47, "Text"],
Cell[263845, 6701, 7308, 200, 338, "Input"],
Cell[271156, 6903, 9036, 250, 464, "Input"]
}, Closed]],
Cell[280207, 7156, 6201, 159, 382, "Input",
 InitializationCell->True],
Cell[286411, 7317, 280, 9, 45, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[286716, 7330, 125, 3, 31, "Input"],
Cell[286844, 7335, 337, 7, 30, "Output"]
}, Open  ]],
Cell[287196, 7345, 20228, 495, 1020, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[307449, 7844, 64, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[307538, 7848, 303, 9, 31, "Input"],
Cell[307844, 7859, 658, 18, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308539, 7882, 521, 16, 47, "Input"],
Cell[309063, 7900, 46, 0, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309146, 7905, 207, 5, 33, "Input"],
Cell[309356, 7912, 46, 0, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309439, 7917, 725, 21, 55, "Input"],
Cell[310167, 7940, 199, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310403, 7951, 734, 21, 55, "Input"],
Cell[311140, 7974, 197, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311374, 7985, 236, 4, 29, "Text"],
Cell[311613, 7991, 550, 16, 44, "Input"],
Cell[312166, 8009, 166, 6, 28, "Input"],
Cell[312335, 8017, 322, 11, 28, "Input"],
Cell[312660, 8030, 582, 18, 40, "Input"],
Cell[313245, 8050, 255, 8, 28, "Input"],
Cell[CellGroupData[{
Cell[313525, 8062, 247, 8, 28, "Input"],
Cell[313775, 8072, 160, 4, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313972, 8081, 251, 8, 28, "Input"],
Cell[314226, 8091, 379, 8, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314642, 8104, 210, 4, 30, "Text"],
Cell[314855, 8110, 637, 19, 72, "Input"],
Cell[315495, 8131, 770, 23, 72, "Input"],
Cell[316268, 8156, 194, 6, 28, "Input"]
}, Open  ]],
Cell[316477, 8165, 559, 17, 52, "Input"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[317097, 8189, 389, 6, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[317511, 8199, 324, 5, 29, "Text"],
Cell[317838, 8206, 348, 9, 35, "Input"]
}, Open  ]],
Cell[318201, 8218, 879, 22, 52, "Input"],
Cell[CellGroupData[{
Cell[319105, 8244, 173, 2, 29, "Text"],
Cell[319281, 8248, 5542, 142, 364, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[324860, 8395, 199, 4, 26, "Text"],
Cell[325062, 8401, 6211, 153, 437, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[331310, 8559, 85, 1, 26, "Text"],
Cell[331398, 8562, 4964, 132, 358, "Input"],
Cell[CellGroupData[{
Cell[336387, 8698, 322, 9, 45, "Input"],
Cell[336712, 8709, 4885, 106, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[341634, 8820, 349, 8, 45, "Input"],
Cell[341986, 8830, 4929, 107, 244, "Output"]
}, Open  ]],
Cell[346930, 8940, 668, 19, 45, "Input"],
Cell[347601, 8961, 605, 17, 45, "Input"],
Cell[CellGroupData[{
Cell[348231, 8982, 282, 5, 45, "Input"],
Cell[348516, 8989, 338, 9, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[348891, 9003, 190, 4, 39, "Input"],
Cell[349084, 9009, 674, 23, 44, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[349807, 9038, 146, 1, 29, "Text"],
Cell[349956, 9041, 1264, 36, 52, "Input"],
Cell[351223, 9079, 352, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[351600, 9093, 178, 5, 31, "Input"],
Cell[351781, 9100, 114, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[351932, 9108, 180, 5, 31, "Input"],
Cell[352115, 9115, 125, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352277, 9124, 125, 3, 31, "Input"],
Cell[352405, 9129, 338, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352780, 9141, 184, 6, 31, "Input"],
Cell[352967, 9149, 28, 0, 30, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[353080, 9158, 219, 2, 71, "Section"],
Cell[CellGroupData[{
Cell[353324, 9164, 196, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[353545, 9170, 291, 5, 28, "Subsubsection"],
Cell[353839, 9177, 593, 17, 46, "Input"],
Cell[354435, 9196, 2196, 59, 152, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[356668, 9260, 194, 4, 22, "Subsubsection"],
Cell[356865, 9266, 362, 12, 45, "Input",
 InitializationCell->True],
Cell[357230, 9280, 3174, 85, 207, "Input",
 InitializationCell->True],
Cell[360407, 9367, 738, 19, 66, "Input",
 InitializationCell->True],
Cell[361148, 9388, 3552, 94, 227, "Input",
 InitializationCell->True],
Cell[364703, 9484, 1266, 35, 66, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[366006, 9524, 73, 0, 22, "Subsubsection"],
Cell[366082, 9526, 352, 11, 28, "Input"],
Cell[CellGroupData[{
Cell[366459, 9541, 126, 2, 28, "Input"],
Cell[366588, 9545, 86, 2, 24, "Print"],
Cell[366677, 9549, 63, 1, 28, "Output"]
}, Open  ]],
Cell[366755, 9553, 1812, 46, 112, "Input"],
Cell[368570, 9601, 1978, 49, 95, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[370585, 9655, 178, 5, 25, "Input"],
Cell[370766, 9662, 152, 3, 30, "Output"]
}, Open  ]],
Cell[370933, 9668, 137, 3, 31, "Input"],
Cell[371073, 9673, 339, 7, 31, "Input"],
Cell[371415, 9682, 183, 3, 31, "Input"],
Cell[371601, 9687, 132, 2, 31, "Input"],
Cell[371736, 9691, 600, 15, 31, "Input"]
}, Open  ]],
Cell[372351, 9709, 368, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[372744, 9723, 770, 17, 31, "Input"],
Cell[373517, 9742, 2933, 63, 145, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[376487, 9810, 190, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[376702, 9816, 1102, 23, 45, "Input"],
Cell[377807, 9841, 756, 15, 23, "Print"],
Cell[378566, 9858, 3758, 91, 178, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[382361, 9954, 704, 21, 31, "Input"],
Cell[383068, 9977, 1074, 28, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[384179, 10010, 234, 6, 45, "Input"],
Cell[384416, 10018, 416, 10, 44, "Output"]
}, Open  ]],
Cell[384847, 10031, 1190, 34, 137, "Input"],
Cell[CellGroupData[{
Cell[386062, 10069, 122, 2, 45, "Input"],
Cell[386187, 10073, 348, 8, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[386572, 10086, 87, 1, 28, "Subsubsection"],
Cell[386662, 10089, 523, 16, 31, "Input"],
Cell[387188, 10107, 523, 16, 31, "Input"],
Cell[CellGroupData[{
Cell[387736, 10127, 117, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[387878, 10132, 229, 8, 41, "Input"],
Cell[388110, 10142, 4902, 255, 186, 3182, 223, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[393049, 10402, 597, 19, 58, "Input"],
Cell[393649, 10423, 365, 7, 39, "Message"],
Cell[394017, 10432, 6601, 350, 186, 4353, 310, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[400667, 10788, 116, 1, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[400808, 10793, 229, 8, 41, "Input"],
Cell[401040, 10803, 4764, 247, 186, 2991, 214, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[405841, 11055, 597, 19, 58, "Input"],
Cell[406441, 11076, 365, 7, 39, "Message"],
Cell[406809, 11085, 5036, 250, 186, 2977, 213, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[411894, 11341, 345, 10, 25, "Input"],
Cell[412242, 11353, 285, 7, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[412576, 11366, 99, 1, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[412700, 11371, 71, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[412796, 11375, 561, 15, 31, "Input"],
Cell[413360, 11392, 1753, 52, 50, "Output"],
Cell[415116, 11446, 630, 11, 50, "Output"]
}, Open  ]]
}, Closed]],
Cell[415773, 11461, 704, 21, 39, "Input"],
Cell[CellGroupData[{
Cell[416502, 11486, 140, 1, 29, "Text"],
Cell[416645, 11489, 569, 15, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[417251, 11509, 122, 1, 29, "Text"],
Cell[417376, 11512, 587, 17, 66, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[418000, 11534, 131, 1, 26, "Text"],
Cell[418134, 11537, 768, 21, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[418939, 11563, 131, 1, 29, "Text"],
Cell[419073, 11566, 866, 22, 66, "Input"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[420000, 11595, 308, 6, 28, "Subsection"],
Cell[CellGroupData[{
Cell[420333, 11605, 2206, 60, 106, "Input"],
Cell[422542, 11667, 2755, 54, 322, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[425346, 11727, 171, 2, 28, "Subsection"],
Cell[425520, 11731, 217, 4, 31, "Input"],
Cell[425740, 11737, 954, 23, 77, "Input"],
Cell[426697, 11762, 618, 16, 31, "Input"],
Cell[427318, 11780, 809, 24, 52, "Input"],
Cell[CellGroupData[{
Cell[428152, 11808, 239, 5, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[428416, 11817, 151, 2, 29, "Text"],
Cell[428570, 11821, 15363, 262, 67, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[443970, 12088, 132, 2, 29, "Text"],
Cell[444105, 12092, 13444, 225, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[457586, 12322, 110, 1, 29, "Text"],
Cell[457699, 12325, 22083, 368, 239, 16585, 276, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[479819, 12698, 92, 1, 29, "Text"],
Cell[479914, 12701, 25398, 423, 233, 19753, 328, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[505349, 13129, 89, 1, 29, "Text"],
Cell[505441, 13132, 17767, 296, 233, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[523257, 13434, 364, 6, 22, "Subsubsection"],
Cell[523624, 13442, 379, 12, 31, "Input"],
Cell[524006, 13456, 455, 14, 31, "Input"],
Cell[524464, 13472, 138, 4, 31, "Input"],
Cell[524605, 13478, 1131, 37, 135, "Input"],
Cell[525739, 13517, 371, 12, 33, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[526159, 13535, 190, 2, 28, "Subsection"],
Cell[526352, 13539, 645, 17, 31, "Input"],
Cell[527000, 13558, 548, 14, 31, "Input"],
Cell[527551, 13574, 1739, 47, 120, "Input"],
Cell[529293, 13623, 663, 20, 52, "Input"],
Cell[CellGroupData[{
Cell[529981, 13647, 523, 14, 31, "Input"],
Cell[530507, 13663, 159, 3, 30, "Output"]
}, Open  ]],
Cell[530681, 13669, 288, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[530994, 13680, 149, 2, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[531168, 13686, 20, 0, 29, "Text"],
Cell[531191, 13688, 224, 5, 45, "Input"],
Cell[531418, 13695, 1230, 29, 52, "Input"],
Cell[CellGroupData[{
Cell[532673, 13728, 452, 10, 31, "Input"],
Cell[533128, 13740, 5930, 105, 244, 1903, 36, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[539095, 13850, 829, 22, 52, "Input"],
Cell[539927, 13874, 10756, 182, 246, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[550720, 14061, 602, 15, 31, "Input"],
Cell[551325, 14078, 608, 14, 44, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[551982, 14098, 21, 0, 26, "Text"],
Cell[552006, 14100, 224, 5, 45, "Input"],
Cell[552233, 14107, 1218, 29, 66, "Input"],
Cell[CellGroupData[{
Cell[553476, 14140, 460, 10, 45, "Input"],
Cell[553939, 14152, 2112, 40, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[556088, 14197, 840, 22, 66, "Input"],
Cell[556931, 14221, 10760, 182, 249, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[567728, 14408, 624, 15, 45, "Input"],
Cell[568355, 14425, 634, 14, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[569038, 14445, 22, 0, 26, "Text"],
Cell[569063, 14447, 273, 5, 45, "Input"],
Cell[569339, 14454, 1261, 30, 66, "Input"],
Cell[CellGroupData[{
Cell[570625, 14488, 480, 10, 45, "Input"],
Cell[571108, 14500, 2086, 38, 234, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[573231, 14543, 877, 23, 66, "Input"],
Cell[574111, 14568, 5026, 88, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[579174, 14661, 654, 17, 45, "Input"],
Cell[579831, 14680, 996, 24, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[580876, 14710, 23, 0, 26, "Text"],
Cell[580902, 14712, 281, 5, 45, "Input"],
Cell[581186, 14719, 1314, 30, 66, "Input"],
Cell[CellGroupData[{
Cell[582525, 14753, 510, 11, 45, "Input"],
Cell[583038, 14766, 2509, 48, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[585584, 14819, 952, 24, 66, "Input"],
Cell[586539, 14845, 5479, 95, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[592055, 14945, 650, 17, 45, "Input"],
Cell[592708, 14964, 1030, 26, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[593787, 14996, 86, 1, 26, "Text"],
Cell[593876, 14999, 321, 6, 45, "Input"],
Cell[594200, 15007, 1362, 31, 86, "Input"],
Cell[CellGroupData[{
Cell[595587, 15042, 526, 11, 45, "Input"],
Cell[596116, 15055, 2401, 43, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[598554, 15103, 987, 24, 66, "Input"],
Cell[599544, 15129, 5560, 97, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[605141, 15231, 662, 17, 45, "Input"],
Cell[605806, 15250, 1044, 25, 91, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[606911, 15282, 198, 3, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[607134, 15289, 20, 0, 29, "Text"],
Cell[607157, 15291, 224, 5, 45, "Input"],
Cell[607384, 15298, 1271, 30, 52, "Input"],
Cell[CellGroupData[{
Cell[608680, 15332, 368, 9, 45, "Input"],
Cell[609051, 15343, 2022, 38, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[611110, 15386, 790, 22, 66, "Input"],
Cell[611903, 15410, 10978, 186, 246, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[622918, 15601, 602, 15, 45, "Input"],
Cell[623523, 15618, 629, 14, 44, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[624201, 15638, 21, 0, 26, "Text"],
Cell[624225, 15640, 121, 3, 45, "Input"],
Cell[624349, 15645, 1293, 31, 52, "Input"],
Cell[CellGroupData[{
Cell[625667, 15680, 479, 10, 45, "Input"],
Cell[626149, 15692, 2109, 40, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[628295, 15737, 821, 22, 66, "Input"],
Cell[629119, 15761, 13393, 227, 249, 10702, 181, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[642549, 15993, 629, 15, 45, "Input"],
Cell[643181, 16010, 651, 14, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[643881, 16030, 22, 0, 26, "Text"],
Cell[643906, 16032, 189, 4, 45, "Input"],
Cell[644098, 16038, 1380, 32, 66, "Input"],
Cell[CellGroupData[{
Cell[645503, 16074, 650, 16, 45, "Input"],
Cell[646156, 16092, 2171, 41, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[648364, 16138, 901, 23, 66, "Input"],
Cell[649268, 16163, 16055, 270, 242, 10846, 183, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[665360, 16438, 653, 17, 45, "Input"],
Cell[666016, 16457, 1007, 25, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[667072, 16488, 23, 0, 26, "Text"],
Cell[667098, 16490, 187, 4, 45, "Input"],
Cell[667288, 16496, 1429, 33, 66, "Input"],
Cell[CellGroupData[{
Cell[668742, 16533, 616, 16, 45, "Input"],
Cell[669361, 16551, 2420, 45, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[671818, 16601, 971, 24, 66, "Input"],
Cell[672792, 16627, 12250, 207, 234, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[685079, 16839, 11632, 197, 141, "Input"],
Cell[696714, 17038, 83, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[696834, 17044, 676, 17, 45, "Input"],
Cell[697513, 17063, 941, 24, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[698503, 17093, 86, 1, 26, "Text"],
Cell[698592, 17096, 187, 4, 45, "Input"],
Cell[698782, 17102, 1438, 33, 86, "Input"],
Cell[CellGroupData[{
Cell[700245, 17139, 525, 11, 45, "Input"],
Cell[700773, 17152, 2374, 44, 228, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[703184, 17201, 1039, 25, 66, "Input"],
Cell[704226, 17228, 12275, 208, 229, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
